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APPENDIX A 



A.l INTRODUCTION 

There are two power supplies used with the A-Series Computers A Ul+O-watt 
supply is for the 20-slot backplane and a 300-watt supply is for the l6-slot 
backplane. Both supplies are modules that plug into the back (circuit trace 
side) of the appropriate backplane. The A-Series supplies are considered 
non-repairable in the field and, in case of failure, the entire unit should 
be replaced with an exchange unit from Hewlett-Packard and the original unit 
returned for repair. 

This section of the manual provides information required to evaluate the 
supply's performance. Included are an overall operating description, control 
signal descriptions, mechanical and electrical specifications. Located at 
the back of this section are parts location diagrams (assembly drawings), 
parts lists, and schematics. 

This section is divided into several main parts. The paragraphs under 
subheading A. 2 cover the l4l+0-watt supply, Part No. 0950-1671; the paragraphs 
under subheading A. 3 cover the Micro/1000 300-watt supply, Part No. 
0950-161+6, the paragraphs under subheading k.k cover the HP 1215^A battery 
backup module for Micro/1000 systems, the paragraphs under subheading A. 5 
cover the HP 12159A 25 kHz module for Micro/1000 systems, and under 
subheading A. 6 applications of the 25 kHz power are discussed. 



A. 2 liUO-WATT SUPPLY 

The ^UO-watt supply, Part No. 095O-I67I, is used with the 20-slot backplane. 
The supply operates from either 115 Vac or 230 Vac. There are four fans for 
cooling the power supply and the computer. The fans plug into either 
connector P7 for 115 Vac operation or into P8 for 230 Vac operation. 
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The supply has four dc outputs at +5V, +5V memory backup (+5M) , +12V, and 
-12V. It also provides 25 kHz ac power that is used as a power source for 
certain I/O cards. The +5M battery backup (BB) and the 25 kHz ac outputs are 
optional and are provided by separate cards that plug into the supply. If 
the battery backup is not installed, a jumper card must be placed in the BB 
connector of the supply. A block diagram of the HljO-Watt supply is shown in 
Figure A-l. 



AC line 

115/230 V 



Primary 
Switcher 



Standard 
Outputs 



+5. IV 
+12. OV 
-12.0V 



External 
Battery 



Control 



Optional 
Outputs 



+5.IVM 
25 kHz 
25 kHz 



Logic 
Outputs 



+• P0N+ 
+- PFW- 
> MLOST- 



Figure A-1. 440-Watt Power Supply Block Diagram 



A. 2.1 LOGICAL SIGNALS 

The power supply provides logical control signals to the computer to indicate 
power availability so that appropriate action can be taken. 



A. 2.1.1 P0N+ 



PON+ is a signal that indicates the condition of the dc outputs. When the 
outputs are within specification, P0N+ will be 2.kV to 5-2V. When the 
outputs are outside of specification, P0N+ will be 0.2V plus or minus 0.2V. 
This definition includes the time when ac power is not applied (i.e., when ac 
power is down, the P0N+ signal should be the out-of-specification condition.) 



A-2 
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A. 2. 1.2 PFW- 

The PFW- signal indicates the condition of ac power into the supply. When 
the input line voltage is above the "power fail trip point", PFW- is 2.kV to 
5-2V. When the input line voltage is below the "power fail trip point", PFW- 
is 0.2V plus or minus 0.2V. 



A. 2. 1.3 MLOST- 

The MLOST- indicates the condition of the memory backup voltage as the main 
supply is being powered up. At all other times this signal is of no 
importance to the system. MLOST- is a pulse that is valid for 1 millisecond 
before and 5 millisecond after the rising edge of P0N+. The MLOST- pulse 
during power up will be 2.UV to 5-2V if the memory supplies were within 
specification during the last power down. If the memory supplies are not 
within specification, MLOST- will be 0.2V plus or minus 0.2V. 



A. 2. 2 MECHANICAL SPECIFICATIONS (UUOW SUPPLY) 

The overall mechanical dimensions and connector locations of the 0950-1671 
supply are shown in Figure A-2. The connector specifications are given in 
Table A-l. 

The cooling air flow should be a minimum of 70 CFM of air flowing across the 
power board in the direction indicated in Figure A-2. Power supply assembly 
diagrams are provided at the rear of this section of the manual. 



Table A-1. Connector Specifications (440W Supply) 



CONNECTOR 


AMP PART NO. 


AMP MATING NO. 


P1/P3 


Edge Card 




P2/Pit 


Edge Card 




P5 


9-350255-2 


3502U0 


P6 


9-35026U-2 


3502U3 


P7 


20758U-1 


207396-1 


P8 


20758U-1 


207396-1 


P9 


207365-1 


207360-1 
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BOX 

OUTLINE 



WEIGHK16 LB 
(7 Kg) 

DEPTH=4.85 
(125 mm) 



AIR 



P5 P6 



AIR 



91 
P8 



AIRFLOW 
70 CFM MIN. 



V 



COMPONENT SIDE 
CIRCUIT BOARD 



P1 / P3 | | P2 / P4 



16.00 
(406 mm) 



P9 



7.50 (190 mm) 



All dimensions in inches. 



Figure A-2. Dimensions and Connector Locations (440H Supply) 
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A. 2. 3 ELECTRICAL CONNECTIONS (U1+0W SUPPLY) 

The electrical contacts for the kkO watt power supply are provided by nine 
connectors. Two of these are edge-card connectors that plug into the 
backplane. A power supply connector diagram is shown in Figure A-3, and the 
electrical connector pin definitions are given in Table A-2. 



P5 

INT BAT+ 3- 

INT BAT- 1 " 

SW IN2 4- 

SW IN1 2- 



P6 

EXT BAT+ 1 0- 
EXT BAT- 1 1 - 




FUSE - 



5A-250V 




FAN POWER 
1 1 5/230V 



POWER IN 
BACKUP 



CAPACITOR 
TAP 



<7 



PI 

230V 



10 

9 

8 

7 

6 

5 

4 

3 

2 

1 



P8 
1 15V 



10 

9 

8 

7 

6 

5 

4 

3 

2 

1 



Figure A-3. 440 Hatt Power Supply Connector Diagram 
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Table A-2. Electrical Connections (440N Supply) 





P1 DC OUTPUT CONNECTOR 


(PC EDGE BOARD) 


Pin Number 


Signal Name 




1 thru 3o 


volts 




37 thru pO 


Common 






P2 DC OUTPUT CONNECTOR 


(PC EDGE BOARD) 


rin Number 


Signal Name 




X thru <;o 


Common 




29 thru 32 


+12 Volts 




33, 3U 


-12 Volts 




35 thru 38 


+5.1 Volts Memory Backup 


39 thru U2 


25 kHz Phase 


1 


1+3 thru 1+6 


25 kHz Phase 


2 


^7 


PON+ 






PFW- 




49 


MLOST- 






+5.1 Volts Memory Sense 




P5 BATTERY SHITCH 


CONNECTOR 


Pin Number 


Signal Name 




2 


Switch in 1 




1+ 


Switch in 2 




1 


Internal Battery - 


3 


Internal Battery + 


P9 AC LINE INPUT 


Pin Number 


Signal Name 




1 


AC Line 




2 


No Connection 


3 


AC Neutral 





A-6 
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Table A-2. Electrical Connections (440W Supply) (Continued) 



P7/P8 AC LINE CONFIGURATION / FANS 


Pin 

1 X II 


MiimKp r* 


& i nn a 1 W^mp 

OX^IICIX I'ICIIIIC- 


1 




Fan #1 


2 




Fan #1 


3 




Fan #2 


k 




Fan #2 


5 




Fan #3 


6 




Fan #3 


7 




Fan #U 


8 




Fan #»+ 


9 




230v / 115v 


10 




230v / 115v 


P6 TEST POINTS / EXTERNAL BATTERY 


Pin 


Number 


Signal Name 


1 




+5V Test 


2 




+12V Test 


3 




-12V Test 


k 




+5VM Test 


5 




PON 


6 




PFW 


7 




MLOST 


8 




25 kHz Test 


9 




25 kHz Test 


10 




Battery + 


n 




Battery - 


12 




Common 
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A.2.U ELECTRICAL SPECIFICATIONS (UUOW SUPPLY) 

The electrical specifications of the kkO watt supply are provided below in 
several tables. Ac line input specifications are given in Table A-3, battery 
input specifications are given in Table A-U, and supply output specifications 
are given in Table A- 5- 



Table A-3. Input Electrical Specifications (440H Supply) 





AC 


LINE 


SPECIFICATIONS 








These specifications dc 


not 


include the power required for the fans . 


Range 1 




Min 


Nominal 


Max 






Voltage 
RNS Current 
Inrush 


(Max) 


9.U 


120 
7.2 


1U0 
6.2 

136 


Volts 

Amps 

Amps 


RMS 


Range 2 














Voltage 
RMS Current 
Inrush 


(Max) 


176 

14.7 


230 
3-7 


278 
3.1 
262 


Volts 

Amps 

Amps 


RMS 


Carry Over 




10.6 






mSec 




PFW Trip Point 
Range 1 
Range 2 








81+ 
176 


Volts 
Volts 


RMS 
RMS 


Line Frequency 






60 


67 


Hz 




Line Fuse 








10 


Amps 




Input Power 








700 


Watts 




Note: Power supply input operation permits 
3000V for periods of not less than 10 


input transients 
s . 


of up to 



A-8 
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Table A-4. Battery Input Specification (440H Supply) 





MINIMUM 


NOMINAL 


MAXIMUM 


Battery Voltage 


10.0 


12.0 


Ik.k Volts 


Discharge, Continuous 






kO . 0 Amps 


Internal Resistance 




10.0 


mohms 


Note: 10. 0V is the approximate input disconnect voltage. Disconnect 
occurs when Output #1 (5- IV) drops to *4. Q V, as measured at the 
battery backup board (coincident with the assertion of MLOST- . 



Table A-5. Output Electrical Specifications (440H Supply) 



Maximum Dynamic Load: 10% over 10 microseconds 

Output Stress Conditions Allowed: 

a. Supply will recover from a shorted regulated output and 
excessive ambient temperature. 



b. Over rated operated temperature. 
Output Regulation (Note 4): 



Output # 1 


Nominal Voltage 


5.1 


Volts 




Maximum Current 


70 


Amps 


Regulation 


0.0 to 3-0 Amps 


+10% 


-10% 




3.0 to 6.2 Amps 


+5% 


-5% 




6.2 to 70.0 Amps 


+ 2% 


-2% 


Output # 2 


Nominal Voltage 


12.0 


Volts 




Maximum Current 


5-6 


Amps 


Regulation 


0.0 to .03 Amps 


+10% 


-10% 




.03 to 5-6 Amps 


+6% 


-3% 


Output # 3 


Nominal Voltage 


-12.0 


Volts 




Maximum Current 


3-5 


Amps 


Regulation 


0.0 to .10 Amps 


+12% 


-12% 




.10 to 3.5 Amps 


+6% 


-6% 
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Table A-5. Output Electrical Specifications (440H Supply) (Continued) 



Output # k (opt 


) 


Nominal Voltage 
Maximum Current 


5.1 
10.0 


Volts 
Amps 


(2) 


Regulation 




0.0 to .10 Amps 
.10 to 10.0 Amps 


+10% 
+2% 


-10% 

-2% 




Output # 5 (opt. 


) 


Nominal Voltage 
Split Phase 
Maximum Current 


39 
19-5 
1.5 


Volts 
Volts 
Amps 


RMS 
RMS 


Regulation 




0.0 to .02 Amps 
.02 to 1.5 Amps 


+10% 
+8% 


-12% 
-8% 




Output # 6 (opt. 


) 


Battery Charger 












Minimum Current 

less than 
Maximum Current 
Maximum Voltage 


.050 
.200 
1U.U 


Amps 
Amps 
Volts 


(3) 


Output # 7 




Fan Power 












Nominal Voltage 
Maximum Current 


115 
1.25 


Volts 
Amps 


RMS 



NOTES: (1) When no battery backup module is installed, the Output #k 
current is supplied by Output #1. The total current drawn 
from Output #1 will not exceed 70 Amp. 

(2) Output #U shall be limited to 7 Amps when the-O950-l666 
battery backup module is installed. 

(3) When the battery is fully charged. 

(U) Although the sum of the maximums listed above exceeds the 
UI4O Watt specification of the power supply front end, not 
all of the outputs will be at maximum load at the* same time 
and the actual maximum load will never exceed kkO Watts 
(not including fan power) . 

(5) When the maximum load is applied to Output #5 the load on 
Output #1 will not exceed 6U Amps. 
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A. 2. 5 ENVIRONMENTAL SPECIFICATIONS (UUOW SUPPLY) 

The environmental specifications of the 0950-1671 UUO-watt power supply are 
provided in Table A-6. 

Table A-6. Environmental Specifications (440N Supply) 



Non Operating Temperature: 

-U0 deg C to 75 deg C 

Operating Temperature: 

0 deg C to 55 deg C 
Type Tested 

-5 deg C to 60 deg C (to insure margins) 

Operating Survival Temperature: 

-20 deg C to 65 deg C 

Operating Humidity: 

5% to 95% at U0 deg C wet bulb temperature 

Vibration: 
Sweep 

From 5 to 55 Hz and back at a rate of one octave per minute, 
with an excursion of .015", for 15 minutes 

Resonance 

At each resonant point, not to exceed U points, dwell for 
10 minutes at the following excursions: 



5 


- 10 Hz 


.125" 


11 


- 25 Hz 


.060" 


25 


- 55 Hz 


.015" 



Shock: 

30g peak force applied as an 11 millisecond sine pulse. To be 
tested in each direction of each axis (6 tests). 

Altitude: 

Full operating temperature, at hkO Watts output power (not 
including fan power), at altitudes up to 10,000 feet, at 15,000 
feet a derating of up to 10 deg C, of operating temperature, is 
allowed . 
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A. 2.6 REPLACEABLE PARTS (I+UOW SUPPLY) 

Replaceable parts lists for the UUOW power supply are provided in Tables A-7 
and A-8. Table A-9 covers the battery backup board, and Table A-10 covers 
the 25 kHz sinewave card. The parts can be located in Figures A-l* through 
A-7. These tables and figures are located at the back of this section in 
front of the schematics. 
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ITEH 
NO. 



COMPONENT 
PART NUMBER 



DESCRIPTION 



REFERENCE DESIGNATORS 



P 
c+ 
CD 



001 
002 
003 
004 

005 
006 
007 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
01? 
020 
021 
022 
023 
024 

025 
026 
027 
028 
029 
030 
031 
032 
033 
034 
035 
036 
037 
038 
03? 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 



13713 P C B XL400-5411R 

13825 SUB ASSY XFMR WIRING HARNESS BD 

13824 SUB ASSY DIODE HEATSINK XL400-34U 

13835 BUS BAR RETURN 

13836 HEATSINK DIODE 



13536 CAP ELECT 1000UF-200V SNAP-IN TERM 

11659-02 CAP ELECT RAD LDS 3.3UF-250V DC 

10520-04 OBSOLETE<CAP ELECT 3.3UF-50V) 

10765-18 CAP ELECT 330UF 63V RD LDS VB 

11106-01 CAP ELECT R LDS 470UF-25VDC LO ESR 

11110-01 CAP ELECT 1000UF 10V 

12951 CAP ELECT 10UF-100VBC Lit ESR R LDS 

2032 CAP CERM .001UF 10Z 1000VDC 

2060 CAP CERM 470PF-1KV 

10765-06 CAP ELECT 3.3UF 63V RD LDS VB 

12685-07 CAP MET POLY .47UF 5Z 63/100V 

13594-02 CAP MET POLY .047UF 250V 52 ,4-LS 

12328-05 CAP MET POLY 0.33UF 63VDC 5X 

12657-07 CAP MET POLY RLD . 10UF 10X 250VDC 

12328-04 CAP MET POLY 0.22UF 63VDC 5X 

13723-01 CAP ELECT 2200UF-16V RLD LOZ HI RIP 

13593-07 CAP MET POLY .01UF 630/1000V 5X 

2105 CAP CERM 100PF-1KV 

1°21 DIODE HI CUR. AX LDS. 400V, 6A MR754 

10056-01 OBSOLETE ( DI ODE FAST RECV) 

11380-04 DIODE FULL WAVE BRDG PREP/10868-04 

1°38 DIODE GEN PUR 1A IN4004 400VDC 

12594 DIODE SILICON CASE D0-35fIN4448 

1°*3 DIODE GEN PUR AX LDS 3A 400V MR504 

12577-02 DIODE RECT FAST RECV.16A 100V 

14461-01 DIODE FST RECV 2A 100V AX LDS 

10 H DIODE ZENER 500 MW 5.6V 52 IN5994B 

1°08 DIODE ZENER 400MW 15V 5Z IN965A 

11356-15 DIODE ZENER 500MW 8.2V 5X IN5998B 

1°«2 DIODE FST RCV 200V 3A AX LDS MR852 

10056-03 DIODE FAST RECV BYW 2?-150 



10180-01 FUSE 5A-250V NORMAL-BLOW 

10865 FUSE 10 AMP 250V (BUSS ABC10) 

13799 HARNESS 2 PIN CONN 

13800 HARNESS 3 PIN CONN 
13B01 HARNESS 4 PIN CONN 



Tl, (REF) 

R128, R129, R130, R131, Clll, CU2r C113, C114. CR112, 
CR113f CR114. CR115f (REF) 



0) 
CT 

> 



C100, 


C101, C102. C103. C104, 


C105 




C108 






J*. 


C109 








C123 






■J- tJ 


C130> 


C131 






C134, 


C137, C138 




o c/> 


C127 






CD C 


C119 






CJ1 "O 


C124. 


C125, C126 




O "O 

1 


C109, 


REPLACES ITEM *012 




-»<< 


C107 








C106f 


C128 




-vl CD 

-» o 


CUO. 


C133» C135 




M (J) 


C122> 


C139 




s 


C120, 


C121, C129, C132. C136, 


C140. C141i C142, C143r 


03 Q. 
O 


C146 




(A -» 


C116. 


C117, C118 




O 


C145 






=T JO 






a n> 


C144 






s -o 






c* i— 










CRIOOf 


CR101, CR102i CR103 




X o 


CR117, 


CR118 




r- a> 
© o> 


CR105 






*> CT 


CR106 






O h- 


CR107, 


CR10?) CR110, CR126 




O (6 
1 








CJI -0 


CR123, 


CR124. CR125 




■U 0> 


CR116 






-» s 


CR119, 


CR120 




-* c+ 

» VI 


CR104 








CR108 








CR111 






Sh 


CR121, 


CR122i CR127r CR128 




(9 


CR117, 


CR118r REPLACES ITEM »031 


et 










Fl, F3 








F2 






o 


J14 






-|> 


J13 






10 


J12 









o 

CO 



ITEM COMPONENT DESCRIPTION REFERENCE DESIGNATORS 

NO. PART NUMBER 

051 



052 


7421 




WIRE RED 


18 AUG 5" <l/4 X 1/4) ULIO 


JP7 


053 


10009- 


07 


WIRE YEL 


18 AWG 2.75 LG 1/4 X 1/4 


JP3 


054 


7949 




WIRE RED 


IB AWG 3 5/8' (1/4 X 1/4) 


JP8 


055 


10372- 


11 


WIRE UHT 


22 AUG 3.75' 1/4 X 1/4 


JP4 


056 


10236- 


04 


WIRE BLK 


22 AUG 4.25" <l/4 X 1/4) 


JF'5 


057 


10008- 


■06 


WIRE ORN 


18 AUG 3.75" 1/4 X 1/4 


JP6 


058 












05? 


14364 




INDUCTOR 


OUTPUT 70A XL400-5411R 


L104 


060 


10799 




INDUCTOR 


18 UH 


L100 


061 


10899 




INDUCTOR 


14.4 UH 


L101. L102. 


062 


13332 




PCB PIN HEADER 4 CKT GOLD PIN 


P5 


063 


13331 




PCB PIN HEADER 12 CKT GOLD PIN 


P6 


064 


13333- 


02 


CONN PCB 


10 CKT INLINE PIN HEADER 


P7t P8 


065 


13333- 


01 


CONN PCB 


3 CKT INLINE PIN HEADER 


P9 


066 


14565- 


■04 


CONN PCB 


15/30 CONT PRS .125 CTR 


P10. Pll 



XT 



> 
I 

-J 



L103 



067 

068 oo *Td 



069 

070 1016 



TRANS PNP CASE TO-92 2N4126 0104 - » S 

071 12592 TRANS PNP CASE TO-92. MPS 2907A Q102 T ™ 

072 12593 TRANS NPN TO-92 CASE MPS2222A 0100. 0103 

073 12591 TRANS NPN CASE TO 92 2N4124 0101- </> -» W 
PL 074 14263-01 TRANS NPN POUER DARLING 10A TIP 140 0105 O £ 
2. 075 3124 OBSOLETE < RES 150K OHM 1/4U) R156 J g» t§ 
ST 076 3077 OBSOLETECRES 1 . 6K OHM 1/4W) R146 

077 3062 OBSOLETE < RES 390 OHM 1/4) R141 

I- 1 078 3324 RES CF 150K OHM 5Z 1/2U R102 

079 3091 OBSOLETE (RES 6 . 2K OHM 1/4U) R104 

080 3120 OBSOLETE ( RES 100K OHM 1/4U) R105. R119 

081 3096 OBSOLETE ( RES 10K OHM 1/4U) R108. R112. R118. R125 

082 3078 OBSOLETE(RES 1.8K OHM 1/4U) R106 

083 3122 OBSOLETE ( RES 120K OHM 1/4U) Rill 

084 3082 OBSOLETE ( RES 2.7K OHM 1/4U) R110 

085 3072 RES CF IK OHM 5Z 1/4U R109. R148. R154 

086 3100 OBSOLETE ( RES 15K OHM 1/4U) R113 

087 3088 OBSOLETE(RES 4.7K OHM 1/4U) R115. R120. R121 
088 

089 3093 OBSOLETE ( RES 7.5K OHM 1/4U) R126 

090 3112 OBSOLETE < RES 47K OHM 1/4U) R122 

091 3108 OBSOLETE(RES 33K OHM 1/4U) R124 

092 10318-76 OBSOLETE ( RES 3K OHM 1/4U) R149 

093 3084 OBSOLETE ( RES 3.3K OHM 1/4U) R155. R150 

094 3256 RES CF 220 OHM 5% 1/2U R133 

095 10304-41 RES CF 100 OHMS 5X 1/2U R132 

096 3115 OBSOLETECRES 62K OHM 1/4U) R151 

097 10318-102 OBSOLETE ( RES 1.2 OHM 1/4U) R142 

098 3060 OBSOLETE ( RES 330 OHM 1/4) R136. R140 

099 3064 OBSOLETE ( RES 470 OHM 1/4U) R138 

100 3092 OBSOLETECRES 6.8K OHM 1/4U) R153. R147 
lL 101 10233-84 RES MET OXIDE 27K OHM 5X 2U R100, R101 
Ul 102 10233-48 RES MET OXIDE 820 OHM 5% 2U R127 
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ITEM 
NO. 

103 
104 
105 
106 
107 
108 
10? 
110 

111 

112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
12? 
130 
131 
132 
133 
134 
135 
136 
137 
138 
13? 
140 
141 
142 
143 
144 
145 
146 
147 
148 
14? 
150 
151 
152 
153 
154 
155 
156 
157 



COMPONENT 
PART NUMBEI 

11313-51 
10232-57 
10232-65 
3080 



10522-2? 

3820 

3903 

10966-4? 
3943 

10519-16 
10519-10 



3938 
3911 



14159 



10505 

11498 

1071 

14381 

11661-01 

7501 

7500 

13887 

13831 

7015 

10006-12 

10004-13 

10002-04 

7578 

7511 

7576 

7577 

7588 

7506 

11828 

12560 

10726-01 

13979 

13980 

13981 



1245? 
1256? 
7740 



DESCRIPTION 



RES MF 3.32K OHMS IX 1/8U 
RES MET OXIDE IK OHM 5Z 1 U 
RES MET OXIDE 2.2K OHM 5% 1U 
OBSOLETE (RES 2.2K OHM 1/4U) 



RES UU 12K OHMS 5% 5U 

RES UU 120 OHM 5X 2W BUH 

RES UU 10 OHM 5Z SU 

RES UU IK OHM 10J£ 2U BUH 

RES POT 5K VADJ MTURN .5U CERMET 

RES POT 50K OHM VADJ STURN ,5W CERM 

RES POT 2K OHM VADJ STURN .5U CERM 



RES THERMISTOR DISC 5 OHM 152 ST LD 
THERMOSTAT SNAP-ACTING AUTO RESET 

TRANSFORMER T3 BIFILAR 



I C LOU POUER DUAL VOLT COMP LM3?3N 
I C OPTO-ISOLATOR 0P1-1264B 
I C SHUNT REG TL430 
TIE URAP PUSH MOUNT 

SPACER GLASS .225 OD .067 ID . 1 B5TH 
TIE URAP MEDIUM 
TIE URAP SMALL 
INSULATOR 

TRANSFORMER SUPPORT 

FUSE CLIP PCB TYPE FOR 3AG FUSE 

UIRE BLU 18AUG 3.75M1/4 X 1/4) 

UIRE BLK 18 AUG 3.75'(l/4 X 1/4) 

UIRE RED 18 AUG 5.50 (1/4 X 1/4) 

SCREU P H 4-40 X 1/4 

SCREU P H 6-32 X 1/2 

SCREU P H 6-32 X 1/4 
UASHER SPLIT LOCK *A 
UASHER SPLIT RING LOCK #6 
UASHER FLAT #6 
WASHER METAL 

MTG HDU TO-220 NON CNDCT »4 

SPACER INSULATED *6 .250 DIA .125LG 

STIFFENER 3.00 X 4.50 

STIFFENER .75 X 2.20 

STIFFENER .50 X 1.00 



LABEL FUSE UARNING 

LABEL i CSA MARK 

LABEL DANGER HIGH V0LTA6E 



REFERENCE DESIGNATORS 



R137 
R117 
RU6 
R114 



R107 

R134r 

R143f 

R145 

R13? 

R103 

R123. 



R135 
R144 



R152 



RT1 r RT2 
SI 00 



T3 



U100. I 
U101 
VR100. 
(REF ) . 
(REF) f 
(REF) . 



VR101 
L104 
R107. 
L104 



RTlt RT2 



(REF). Tl 
XF1, XF2, XF3 
T3 ( REF ) 
T3CREF) 
(REF). S100 
(REF). S100 
( REF} . H/S. Tl 



Q105(REF) 
(REF). S100 
(REF) . 
(REF) . 
( REF} , 
(REF) . 



H/S. 
H/S. 
0105 
CR116. 



Tl 
Tl 



CR117. CR118 



(REF), C100. 
(REF). C116. 
(REF). C137. 



(REF). C104 
(REF), C101 



C101 , 
C117. 
C138 



C102. C103. C104. C105 
C118 
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Power Supply 





Figure A-5. 



Parts Locations for Board 2, 440H Supply 
Update 1 



A-17 



ITEH COMPONENT 
NO. PART NUMBER 



CD 



(0 



001 
002 
003 
004 
005 
006 
007 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
01? 
020 
021 
022 
023 
024 
025 
026 
027 
028 
029 
030 
031 
032 
033 
034 
035 
036 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
OSl 
052 



13619 
1118 



3098 
3080 
3046 
3096 
3104 
3064 

10318-22 

3048 

3056 

3135 

3040 

3024 

10233-78 
13598-08 

10232- 95 

10233- 30 
10232-16 

3811 

3816 

12261-13 

3812 

3918 

10048-65 



12872-01 

11498 

12975-15 

12854 

11661-01 

11399 

7509 

7503 

7602 

7010 

11572 

7930 

7202 



DESCRIPTION 



TRANS NPN POWER 400V ISA 2N667B 
TRANS NPN POWER MJE13007 



OBSOLETE ( RES 
OBSOLETE ( RES 
OBSOLETE < RES 
OBSOLETE (RES 
OBSOLETE ( RES 
OBSOLETE (RES 
OBSOLETE ( RES 
OBSOLETE < RES 
OBSOLETECRES 
OBSOLETE ( RES 
OBSOLETE (RES 
OBSOLETE ( RES 
RES MET OXIHE 
RES MF UNCUT 
RES MET OXIDE 
RES MET OXIDE 
RES MET OXIDE 



12K OHM 1/4W) 
2.2K OHM 1/4W) 
82 OHM 1/4W) 
10K OHM 1/4W) 
22K OHM 1/4W) 
470 OHM 1/4U) 
16 OHM 1/4W) 
100 OHM 1/4W) 
220 OHM 1/4W) 
430K OHM 1/4W) 
47 OHM 1/4W) 
10 OHM 1/4W) 

15K OHM 5% 2W 
LDS 365K 1% 1/8W 
47K OHM 52C 1 W 
150 OHM 5% 2U 
20 OHM 5X 1 U 



RES WW 10 OHM 10% 1W BW20F 

RES WW .2 OHM 55! 2W BWH 

RES WW 10 OHM 10Z 10W 

RES WW 82 OHM 10* 1W BW20F 

RES WW 5 OHM SZ SW 

RES WW 47 OHM 5Z 2W BWH 



TRANSFORMER DRIVE, PC MT TWO CORE 4T 
I C OPTO-ISOLATOR 0P1-1264B 
OPTO ISOLATOR SORTED VDE 390 ORN 
CONN JACK CLOSED ENTRY P C SWAGE MT 
SPACER GLASS .225 OD .067 ID .185TH 
ASSY MTG HDW TO-3 CNDCT PEM STUD 
SCREW P H 4-40 X 1/2 
NUT HEX 4-40 

WASHER INT TOOTH LOCK «4 
INSULATOR ALUM TO-220 
INSULATOR TO-220 

WIRE RED 22 AWG 1 1/2* <l/4i 1/4)T 
ORTV 108 CLEAR 



REFERENCE DESIGNATORS 



Q5> Q7r 08 
Q4 



R30 
R8 
R9 
Rll 

RIO, R20 

Rl 

R14 

R13 

R12 

R19 

R26 

R6 

R2, R23 
R18 

R21, R22 
R24r R27 
R29 

R15i R3r R4 

R16, R17 

R25 

R5 

R7 

R28 



T2 
U2 
Ul 

Eli E2. E3r E4 

( REF > » R25 

(REF), Q5f 07, 08 

(REF) i Q4> CR6 

(REF). 04, CR6 

( REF ) i Q4i CR6 

(REF)f 04, CR6 

(REF), 04, CR6 

(REF), T2 
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ITEM 


COMPONENT 


DESCRIPTION 


REFERENCE DESIGNATORS 


NO • 


PART NUMBER 






053 


13730 


P C B 




054 


12983 


CONTROL BOARD 723 


Al 


055 








056 








057 








058 








059 








060 








061 


13834 


HEATSINK TRANSISTOR 


( REF ) » Q5f 07, 08 


062 


10346-01 


CAP ELECT 10UF-16V RAD LDS 


CB 


063 


12288 


CAP ELECT 4.7UF 20Z 100V LO ESR RLD 


CIO. C17 


064 


2071 


CAP ELECT RAD. LEADS 10UF-250V 


C14 


065 


2105 


CAP CERM 100PF-1KV 


C2 


066 


2003 


CAP CERM . 1UF +80Z-20Z 500VDC 


C3 


067 


2073 


CAP CERM DISC .001UF-3KV 20Z 


C12, C18 


06B 


2062 


CAP CERM 270PF-1KV 


C5 


069 


2032 


CAP CERM .001UF 10Z 1000VDC 


C22 


070 


2005 


CAP CERM DISC .01UF 1KVDC 20Z Z5U 


C13 


071 


12328-04 


CAP MET POLY 0.22UF 63VDC 5Z 


C6 


072 


12328-06 


CAP MET POLY 0.47 63VDC 5Z 


C7 


073 


13593-05 


CAP MET POLY .0047UF 630/1000V 5Z 


C9> Clli C21 


074 


12328-08 


CAP MET POLY l.OUF 63VDC 5Z 


C16. C20 


075 


13450-01 


CAP MET POLY . 1UF 100VDC 5Z R LDS 


C1f C4. C19 


076 


2080 


CAP MET POLY 2UF-200VDC 10X 


C15 


077 








078 








079 








080 








081 


14461-01 


DIODE FST RECV 2A 100V AX LDS 


CR20f CR21. CR22. CR23. CR24. CR25. CR26i 


082 


13734 


DIODE GEN PUR FST FWD REC IN4004 


CR1. CR2. CR3» CR12i CR13. CR18. CR19 


083 


12594 


DIODE SILICON CASE D0-35tIN4448 


CR4> CR8 


084 


1045 


DIODE FST RCV 100V 3A AX LDS MR854 


CR5» CR14 


085 


11196 


DIODE FAST RECV MR2404F 


CR6 


086 


1028 


OBSOLETE (DIODE RECTIFIER) 


CR17. CR9 


087 


12260-04 


DIODE HI CUR AX LDS. 30V. 6A SR3773 


CRIOf CR11. CR15. CR16 


088 


11356-15 


DIODE ZENER SOOMU 8.2V 5% IN5998B 


CR7 


089 


1155 


DIODE FST RCV 1A 600V AX LD IN4937 


CR17. CR9 . REPLACES ITEM #034 


090 


10024-02 


TERM PLUG .400 


JP1 


091 








092 


13733 


INDUCTOR 4MH 


LI 


093 


11625 


INDUCTOR 010467-01/02 


L2 


094 








095 








096 


13195-01 


CONN FRICTION LOCK 4 POS .156 CTR 


P12 


097 


13195-04 


CONN FRICTION LOCK 2 POS .156 CTR 


P14 


098 


13195-05 


CONN FRICTION LOCK 3 POS .156 CTR 


P13 




13195-06 


CONN FRICTION LOCK 7 POS .156 CTR 


P15 




12592 


TRANS PNP CASE T0-92iMPS 2907A 


Olr Q6 




12675 


TRANS PNP HI VOLT 400V TO-126 CASE 


Q3 




1005 


TRANS NPN POUER TIP-50 


Q2 



CR27 
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Power Supply 




R39 
R12 



i ^C23^ ) 



45-13077 REV 
R31 



R30 
CR4 



R28 
C9 



R1S 



(3 



R57 
R17 

R16 



30 cm « in o> 
_ 2 2 "* in 1- 
I I I I I C 



c 



tX 








1 









R24 




R47 




R46 








R11 




"N CR9 



R21 
R22 




Figure A-6. Parts Locations for Battery Backup Card (BB500) 

Update 1 
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ITEM 


COHPONENT 


DESCRIPTION 


REFERENCE DESIGNATORS 


NO i 


PART NUMBER 








001 


13093 


P C B 






002 










003 










004 


2032 


CAP CERM .001UF 10% 1000VDC 


C2. 


C18 


005 


2008 


CAP CERM . 1UF-100V 


C5 t 


ClOi C23 


006 


2120 


CAP CERM .0022UF-1KV 


C6f 


C12 


007 










008 










009 


2060 


CAP CERM 470PF-1KV 


C7 




010 


2062 


CAP CERM 270PF-1KV 


CIS 




Oil 


2059 


CAP CERM .01UF-100V 


C20 




012 










013 
014 


10520-13 


CAP ELECT 470UF 50V RD LDS VB 


Cli 


C3f Cllr C14. C16f C17 


015 


10520-05 


OBSOLETE(CAP ELECT 4.7UF-50V) 


C4 




016 


10520-02 


OBSOLETED ( CAP ELECT 1.0UF-50V) 


C21 




017 


10346-01 


CAP ELECT 10UF-16V RAH LDS 


C22 




018 


10520-04 


OBSOLETE(CAP ELECT 3.3UF-50V) 


C24 




01? 


10765-07 


CAP ELECT 4.7UF 63V RD LDS VB 


C4> 


REPLACES ITEM #015 


020 


13593-01 


CAP MET POLY .001UF 630/1000V 5% 


C8i 


C9 


021 


10765-06 


CAP ELECT 3.3UF 63V RD LDS VB 


C24 


. REPLACES ITEM *018 


022 


10541-03 


CAP ALUM ELECT l.OUF 100U VDC 


C21 


f REPLACES ITEM *016 


023 


1038 


DIODE GEN PUR 1A IN4004 400VDC 


CR1 




024 


12594 


DIODE SILICON CASE D0-35fIN4448 


CR3 


f CR4f CR5f CR9f CR11 


025 
026 


1 1730-20 


HEATSINK SUB ASSY TO-220 


CR2 


f (REF) 


027 
028 


12540 


I C AD J PREC SHUNT REG TO 92 


VR1 




029 
030 










031 










032 










033 










034 


1 1969 


INDUCTOR 3 TERM REG 


LI 




035 


1 1762 


INDUCTOR 011749 


L2 




036 


12209 


INDUCTOR AIR CORE 


L3 




037 










038 










039 


11463 


TRANS MPS-A56 


01 f 


02. Q5< 09 


040 


1 16B9 


TRANS PNP HIGH VOLT D45C11 


04 




041 


13530 


TRANS NPN POWER 45V 15A D44VH4 


03 




042 










043 










044 


11464 


TRANS NPN MPS-A06 


Q6f 


Q7f Q15 


045 


1017 


TRANS NPN GEN PUR MPS-5172 


Q8 




046 


1144 


TRANS NPN POWER SIL TIP-31 TO-220 


Q12 




047 










048 










049 


12593 


TRANS NPN TO-92 CASE MPS2222A 


Q13 


f 014 


050 










051 










052 
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ITEH 
NO. 

053 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 
066 
067 
068 
069 
070 
071 
072 
073 
074 
075 
076 
077 
078 
079 
OBO 
081 
082 
083 
084 
085 
086 
087 
088 
089 
090 
091 
092 
093 
094 
095 
096 
097 
098 
099 
100 
101 
102 
103 
104 



COMPONENT 
PART NUMBER 



3074 
3067 
3048 



3064 
3113 



3120 
3103 
3116 
3110 

3096 
3072 
3091 
3092 

3090 
3108 
3134 



3087 



3040 

10318-05 
3068 



3088 
3084 

10329-91 
10329-61 
10329-03 
10329-74 



3094 
3102 



3800 



DESCRIPTION 



OBSOLETE < RES 1.2K OHM 1/4W) 
OBSOLETE ( RES 620 OHM 1/4W) 
OBSOLETE(RES 100 OHM 1/4U) 



OBSOLETE ( RES 470 OHM 1/4W) 
OBSOLETE ( RES 51K OHM 1/4W) 



OBSOLETE ( RES 100K OHM 1/4U) 
OBSOLETE ( RES 20K OHM 1/4W) 
OBSOLETE ( RES 68K OHM 1/4W) 
OBSOLETE ( RES 39K OHM 1/4W) 

OBSOLETE ( RES 10K OHM 1/4W) 
RES CF IK OHM 5% 1/4W 
OBSOLETE ( RES 6.2K OHM 1/4W) 
OBSOLETE ( RES 6.8K OHM 1/4W) 

OBSOLETE ( RES 5.6K OHM 1/4U) 
OBSOLETE ( RES 33K OHM 1/4H) 
OBSOLETE ( RES 390K OHM 1/4W) 



OBSOLETE ( RES 4.3K OHM 1/4H) 



OBSOLETE ( RES 47 OHM 1/4W) 
OBSOLETE ( RES 3.3 OHM 1/4U) 
OBSOLETE ( RES 680 OHM 1/4U) 



OBSOLETE(RES 4.7K OHM 1/4U) 
OBSOLETE < RES 3.3K OHM 1/4W) 

RES MF 43K 2% 1/4U 
RES MF 2.4K 22 1/4W 
RES MF 270K 2% 1/4W 
RES MF S.2K 2% 1/4W 



OBSOLETE (RES 8.2K OHM 1/4U) 
OBSOLETE (RES 18K OHM 1/4W) 



RES WW .1 OHM 5% 2W BWH 



REFERENCE DESIGNATORS 



Rli R7r R40 

R2 

R8 



RIO 
R15 



R17t R28 
R55 
R20 
R53 

R21, R22i R45» R57> R47 

R23» R29> R42 

R24 

R46 



R50 



R27r 
R30 

R32> R34 



R38 



R39 
R44 

R52 



R54i R56 
R51 

R12 
R16 
R31 
R14 



R43i R19 
R48 



R3. R4 
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DESCRIPTION 


REFERENCE 


NO • 


PART NUMBER 










105 


381 1 


RES 


WW 10 OHM 10X 1W BW20F 


R9 




106 


10966-49 


RES 


WW IK OHM 10% 2W BWH 


Rl 1 




107 












108 


10660-10 


RES 


POT 2K OHMS VERT AD J .5W CERM 


R13 




109 


3902 


RES 


POT 5K OHM HORZ ADJ 10JC .75W 


R41 1 


• R49 


110 


10519-10 


RES 


POT 2K OHM VADJ STURN .5W CERM 


R18 




111 
112 












113 


1000 


I C 


VOLT REG 723 


Ul i 


U4 


114 


10379-01 


I C 


NOR GATE DUAL IN CMOS CD4001BE 


U2 




115 


10505 


I C 


LOW POWER DUAL VOLT COMP LM393N 


U3 




116 












117 


13495 


BRACKET BATT BACK-UP XL400-3502 






118 


7577 


WASHER SPLIT LOCK «4 






11? 


7506 


WASHER FLAT *6 






120 


7588 


WASHER SPLIT RING LOCK *6 






121 


11092-01 


STANDOFF HEX 4-40 .250L6 






122 


13744 


MT6 


HDW TO-220 NON CNDCT *4 






123 


14578 


LABEL SMALL BOSCHERT MODEL/SER NO 






124 


13570 


HEATSINK TO-220 NO MTG TABS 






125 


15178 


LABEL CUSTOMER ID 


LKREF) 


126 


7863 


0.0400TAPE 2 SIDED 1/16 


L2r 


< REF ) 


127 












126 


12891-03 


PEM 


STUD 4-40 THREAD .625 LG 






129 


13618-01 


SCREW CAPTIVE PANEL .625' LO 6-32 







0) 
CT 
t— 

to 

> 
■ 

CD 



1 

ro 





03 




0) 




c+ 




c+ 




to 




-i 


00 << 


o 




i/> 


03 


o 


0) 




o 


to 


7T 


s 


c 




03 


O 


00 


a> 


CJ1 


-i 


o 


a. 


o 






o 


c 


T} 


VI 










O 




3 






3 


TO 




to 


IT3 


T3 


t— 




0) 


O 


o 


CD 


to 


Ul 


03 


© 


IT 








to 






-J 


-a 


k 


Q> 




-t 




c+ 




w 












3" 




to 




to 








co 




o 




-*> 




co 







o 
% 

I 



Power Supply 



© 



CD 




-0 




fHUUl 



t© II 



CR2 
CR3 



'0 



43-131W REV 



' > 



/ ' 



A-2U 



Figure A-7. Parts Locations for 25 kHz Card (SH100) 
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ITEM 


CUnrONtN I 






NO* 


PART NUMBER 






001 


1 31 37 






002 


1 3527 






003 


13494 






004 








005 


2059 






006 


111 33-01 






007 








008 








009 








010 








Oil 








012 


1 0765 _ 06 






013 


2032 






014 








Ate 
U I D 








016 


1 4580-01 






017 








018 








019 








020 


1088 






021 


1 026 






022 


1 155 






023 


1042 




I — ' 


024 






a- 


025 


13163 






026 


13164 




c+ 


027 






(D 


028 






M 


029 








030 


1144 






031 








032 








033 








034 


3040 






035 


3082 






036 


3068 






037 








038 








039 


TftOT 

D / 






040 


3100 






041 


31 04 






042 








043 








044 


3113 






045 


3052 






046 


3092 






047 


3272 






048 








049 








050 


10048-02 


> 




051 




1 




052 


3902 


IV) 








VJ1 









DESCRIPTION 



P C B SU100 

HEATSINK TO-3 

BRACKET SINE UAVE.SU100 

CAP CERM .01UF-100V 

CAP MET POLY .1UF 100V 10% RLDS 



OBSOLETE (CAP ELECT 100UF-50V) 
CAP ELECT 100UF 50V LO ESR RLDS RX 
CAP ELECT 3.3UF 63V RD LDS VB 
CAP CERM .001UF 10X 1O00VDC 



CAP MET POLYP 0.22UF 250V 5* RLD 
CAP MET POLYP 0.33UF 250V 5% RLD 



OBSOLETE (DIODE FST RCV 1O0V-3A) 
OBSOLETE (DIODE 200V-1A) 
DIODE FST RCV 1A 600V AX LD IN4937 
DIODE FST RCV 200V 3A AX LDS MRB52 

INDUCTOR ASSY 140UH 9 1.75 ADC 
INDUCTOR 100 UH e 1.25A PQ26/25 



TRANS NPN POWER 2N5885 

TRANS NPN POWER SIL TIP-31 TO-220 



OBSOLETE (RES 47 OHM 1/4W) 
OBSOLETE ( RES 2.7K OHM 1/4W) 
OBSOLETE (RES 680 OHM 1/4W) 



OBSOLETE ( RES 4.3K OHM 1/4W) 
OBSOLETE ( RES 15K OHM 1/4U) 
OBSOLETE ( RES 22K OHM 1/4W) 



OBSOLETE ( RES 51K OHM 1/4W) 
OBSOLETE ( RES 150 OHM 1/4W) 
OBSOLETE ( RES 6 . BK OHM 1/4W) 
RES CF IK OHM 5X 1/2U 



RES UU .36 OHM 5Z 2W BWH 

RES POT 5K OHH HORZ AD J 10Z ,75W 



REFERENCE DESIGNATORS 



C4 

C6 



C5 

C5i REPLACES ITEM #010 

CI » CB 

C7 



C2 
C3 



CR1. CR2 

CR3> CR4 

CR3r CR4f REPLACES ITEM *021 

CR1> CR2i REPLACES ITEM #020 

LI 
L2 



Ql 
Q2 



R3 

R9i 

R4 



R5 



R14 

R13 
R8 
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R6 
RIO 
R7 
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ITEM 


COMPONENT 


DESCR I PT T ON 


NO . 


PART NUHBER 




053 






054 

055 


14578 


1 ARD CMAI 1 tiflCrurDT ufiriCt /CCD km 
LnDtL onHLL DUSLHtK 1 IIUUtL/otK NO 


056 


13162 


TRANSFCIRMFR FiRTUP y 1 Af\{\ 
i nniTiir unnLn Ui\ 1 VC. AL^UU 


057 






058 


13618-01 


SCREW CAPTIVE PANEL » 625 " LG 6-32 


05? 




060 


1000 


I C VOLT REG 721 


061 


11247-19 


SCREW P H 6-32 X 1.5 LG 


062 


7504 


NUT HEX 6-32 


063 


7506 


WASHER FLAT #6 


064 


7549 


WASHER FENDER 


065 






066 


7580 


INSULATOR MICA TO-3 


067 






068 


7588 


WASHER SPLIT RING LOCK #6 


06? 


11828 


WASHER METAL 


070 


12298 


INSULATOR TO-220 


071 


7505 


WASHER FLAT *4 


072 


7577 


WASHER SPLIT LOCK t4 


073 


7584 


SCREW F H 4-40 X 1/2 


074 


11092-01 


STANDOFF HEX 4-40 .250LG 


075 


11837 


INSULATOR CHOMERICS 



REFERENCE DESIGNATORS 
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Power Supply 



A. 3 300 -WATT SUPPLY 

The 300-watt supply, Part No. 0950-161*6 is used with the l6-slot backplane 
for the Micro/1000 computers. The supply operates from either 115 Vac or 230 
Vac. There are four fans for cooling (two fans blow across the supply and 
two fans blow through the I/O card cage). The fans plug into either 
connector J3 for 115 Vac operation or into J2 for 230 Vac operation 

The supply has four dc outputs at +5V, +12V, -12V and +28V (backup battery 
source). The power supplies for the battery backup (BB) 5M voltage and the 
25 kHz ac outputs are provided by separate optional cards that plug into the 
backplane. The main supply generates a 25 kHz square wave that is input to 
the 25 kHz sine-wave card as the source for its sine wave output. The 25 kHz 
sine wave is used as a power source for certain I/O cards. A block diagram 
of the 300-Watt supply is shown in Figure A-8. 
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AC Line 



Line 
Fuse 



115 V 
or 

230 V 



Line 
Filter 



Primary 
Switcher 



25 kHz 
Square 
Wave 



DC 
Output 



phase 1 

* 

phase 2 



+5.1 V 



+12 V 



-12 V 



+28v 



( Bat . Charge 
source) 



Control 






Logic 
Output 





PFW- 



PON+ 





115/230V 

Jumpers 




> 

115V to 
Fans 




>■ 



Figure A-8. 300-Watt Power Supply Block Diagram 



A. 3-1 LOGICAL SIGNALS 



The power supply logical control signals to the computer are the same as for 
the kkO watt supply described in the previous subsection, except that the 
MLOST- signal goes directly from the battery backup card to the backplane 
rather than through the power supply as in case of the kkO watt supply. 
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A. 3- 2 MECHANICAL SPECIFICATIONS (300W SUPPLY) 

The overall mechanical dimensions and connector locations of the 0950-161+6 
supply are shown in Figure A~9- The power supply connectors are shown 
schematically in Figure A-10. The connector specifications are given in 
Table A-ll. 

The cooling air flow should be a minimum of kO CFM of air flowing across the 
power board in the direction indicated in Figure A-9- Power supply assemble 
diagrams are provided at the rear of this section of the manual. 



Table A- 1 1 . Connector Specifications (300H Supply) 



CONNECTOR 


PART NO. 


PI 


U-582390-U 


(AMP) 


J2 


207378-1 


(AMP) 


J3 


207378-1 


(AMP) 


Jk 


EAC-303 


(SWITCHCRAFT) 
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8.75 
(222 mm) 



PI 



Weight <8 lb 
(3.63 kg) 



J2 J3 JU 

□ 



• 1U.00 - 

(356 mm) 



20 cfm 



Air Flow 



20 cfm 



Air Flow 



Depth =2.81 
(71 mm) 



Figure A-9. Dimensions and Connector Locations (300H Supply) 



A.3-3 ELECTRICAL CONNECTIONS (300W SUPPLY) 

The electrical contacts for the 300 watt power supply are provided by a plug 
and three jacks. The plug inserts into a jack on the backplane and the jacks 
are for the fans and ac input. A power supply connector diagram is shown in 
Figure A-10. The electrical connector definitions are given in Table A-12. 
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6 
5 
k 
3 
2 
1 



J2 
230 V 



Capacitor 
Tap 



AC Line 



Filter 



AC Neutral 



AC Ground 



AC Hot 



Line Fuse 
see note 



6 

5 
k 

3 
2 
1 



J3 
115 v 



Jit 

AC Input 



NOTE: AC Ground is tied to sheet metal tray. 



Figure A-10. 300-Watt Power Supply Connector Diagram 
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Table A-12. Electrical Connections (300W Supply) 



ELECTRICAL CONNECTOR PIN DEFINITIONS 




P1 


DC OUTPUT CONNECTOR 


Pin Number 




Signal Name 


2h thru 35 




+5.1 Volts 


10 thru 23 




Common 


6 thru 8 




+12 Volts 


5 




-12 Volts 


9 




+28 Volts 


3 




25 KHz Phase 1 


k 




25 KHz Phase 2 


1 




P0N+ 


2 




PFW- 


J4 AC LINE INPUT 


Pin Number 




Signal Name 


1 




AC Line 


2 




AC Ground 


3 




AC Neutral 


Pin 2 of this input 


connector must be tied to 


the sheet metal base 






J2/J3 AC 


LINE CONFIGURATION / FANS 


Pin Number 




Signal Name 


1 




Fan #1 


2 




Fan #1 


3 




Fan #2 


h 




Fan #2 


5 




230V / 115V 


6 




230V / 115V 
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ELECTRICAL SPECIFICATIONS (300W SUPPLY) 

The electrical specifications of the 300 watt supply are provided in the 
tables below. Ac line input specifications are given in Table A-13, and 
supply output specifications are given in Table A-lU. 



Table A-13. Input Electrical Specifications (300W Supply) 



AC LINE 


SPECIFICATIONS 








These specifications 


do not 


include the power required for the fans. 


Range 1 
Voltage 

RNS Current (Max) 
Inrush 


Min 

8U 
5-7 


Nominal 

115 


Max 

ll+O 

U.3 
102 


Volts 

Amps 

Amps 


RMS 


Range 2 
Voltage 

RMS Current (Max) 
Inrush 


168 
2.8 


230 
2.3 


280 

2.1 
20U 


Volts 

Amps 

AMps 


RMS 


Carry Over 


16.0 






mSec 




PFW Trip Point 
Range 1 
Range 2 






8k 
168 


Volts 
Volts 


RMS 
RMS 


Line Frequency 




60 


67 


Hz 




Line Fuse 






10.0 


Amps 




Input Power 

(Not including fans) 






1+00 


Watts 




Notes : 












1. The line filter reduces conducted noise to 2 dB//V below the VDE 
0871 Level B conducted emission specification. Conducted noise 
is measured with the power supply configured for 230 Vac operation 
and its output loaded for 300W by a resistive load. For 115 Vac 
operation of the supply, conducted noise must be 2 BjuV below the 
FCC Level B conducted emission specification. 


2. Power supply operation permits input transients 
for periods of not less than 10 ps. 


of up to 


3000V 
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Table A-14. Output Electrical Specifications (300W Supply) 



Maximum Dynamic Load 


Change: 10% over 10 microseconds 


Output Stress Conditions Allowed: 






a. Supply will 


recover from a short to ground 


or to another 


regulated output and excessive ambient temperature. 


b. Over rated operated temperature. 






Output Regulation: 








Note: For the following specifications to be valid Output #1 will 


have at least 


a 3-0 amp load. With 


a load less than 3.0 amps 


on Output #1, 


the maximum ripple on 


outputs #1, 2, 3, and 


6 must not exceed 1.5 volts peak to peak. 




Output # 1 


Nominal Voltage 


5-1 


Volts 




Maximum Current 


50 


Amps 


Regulation 


0.0 to 3.0 Amps 


+10% 


-10% 




3.0 to 6.2 Amps 


+5% 


-5% 




6.2 to 50.0 Amps 


+2% 


-2% 


Ripple 


Maximum Ripple 


0.10 


Volt 


Output # 2 


Nominal Voltage 


12.0 


Volts 




Maximum Current 


7-0 


Amps 


Regulation 


0.0 to .03 Amps 


+10% 


-10% 




.03 to 7.0 Amps 


+6% 


-3% 


Turn -on Surge 


9 . 0 Amps 


+6% 


-30% 




(for 10 sec. max. ) 






Ripple 


Maximum Ripple 


0.12 


Volt 


Output # 3 


Nominal Voltage 


-12.0 


Volts 




Maximum Current 


3-0 


Amps 


Regulation 


0.0 to .10 Amps 


+12% 


-12% 




.10 to 3-0 Amps 


+6% 


-6% 


Ripple 


Maximum Ripple 


0.12 


Volt 


Output # k 


Square Wave 






The Square Wave outputs must be in 


regulation when the 


load on +5-1 


Volts is greater than 6 . 2 Amps 






Min Nominal 


Max 




Phase to Phase 11.20 11.87 


12.5U 


Volts RMS 


Phase to Ground 5.60 5.9U 


6.27 


Volts RMS 


RMS Current 


0.00 


3-30 


Amps/Phase 


Frequency 


2Uk 28k 


32k 


Hertz 


Output Power 




36 


Watts 
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Table A-14. Output Electrical Specifications (300H Supply) (Continued) 



Output # 5 


Fan Power 








Nominal Voltage 


115 


Volts RMS 




Maximum Current 


1.25 


Amps 


Output # 6 


Nominal Voltage 


+28.0 


Volts 




Maximum Current 


2.50 


Amps 


Regulation 


0.0 to 2.5 Amps 


+20% 


-20% 


Ripple 


Maximum Ripple 


0.30 


Volt 


Note : 








Although the 


sum of the maximums listed 


above exceeds the 300 


Watt specification of the power supply 


front end 


, not all of 


the outputs will be at maximum load at 


the same 


time and the 


actual power 


is 325 watts for a maximum 


of 10 seconds. 
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A. 3 • 5 ENVIRONMENTAL SPECIFICATION (300W SUPPLY) 

The environmental specifications of the 0950-1671 300-watt supply are the 
same as for the UUO-watt supply described in the subsection A. 2 above. 



A. 3-6 REPLACEABLE PARTS (300W SUPPLY) 

Replaceable parts lists for the 300W power supply are provided in Table A-15 
and they may be located in Figure A-ll. The table and figures are located in 
the back of this section in front of the schematics. 
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ITEM 
NO. 



COMPONENT 
PART NUMBER 



DESCRIPTION 



REFERENCE DESIGNATORS 



P 
c+ 
(D 



001 
002 
003 
004 
005 
006 
007 
008 
00? 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
01? 
020 
021 
022 
023 
024 
025 
026 
027 
028 
029 
030 
031 
032 
033 
034 
035 
036 
037 
03B 
03? 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 



14645 

14718 

15009 

14732 

15632-01 

15632-02 

12012 

14??5 

2105 

2000 

2059 

2006 

2008 

2062 

2004 

15111-01 

10346-05 
10346-01 
14?92-01 

14993- 01 
15869-05 
12939 

14994- 01 



12?51 

15032-10 
135?3-07 
12685-03 
1327?-07 
12328-04 
12685-07 
135?3-03 

12328-08 
11133-01 
2080 

15016-07 
11133-03 
12685-10 
13932-03 



2021 

11414- 

1038 



P C B XL301-5612 
BRACKET L 300 WATT 
STUDf LOCATING 
HEATSINK XL301-5612 
HEATSINK 
HEATSINK 
HEATSINK TO-220 
PLATE COVER 
CAP CERM 100PF-1KV 
CAP CERM .0047UF-1KV 
CAP CERM .01UF-100V 
CAP CERM 150PF-1KV 
CAP CERM . 1UF-100V 
CAP CERM 270PF-1KV 
CAP CERM . 1UF-16V 

CAP SOLID ELECT 6.8uf 20Z 25V RLDS 

CAP ELECT 47UF-16V RAD LDS 

CAP ELECT 10UF-16V RAD LDS 

CAP ELEC 1600UF 15V COMP GRLDS 

CAP ELEC 570UF 40V COMP GRLDS 

CAP ELEC 200V 1200UF 85deS C SNP IN 

CAP ELECT LO LEAK R LDS 100UF 10VDC 

CAP ELEC 350UF 60V COMP GRLDS 



CAP ELECT 10UF-100VDC LD ESR R LDS 

CAP FtF POLYC 0.68UF 400V 10% RLDS 
CAP MET POLY .01UF 630/1000V 5/C 
CAP MET POLY 0.1UF 5% 63/100V 
CAP POLY RLD BOX .10UF 10% 250V 
CAP MET POLY 0.22UF 63VDC 5% 
.47UF 5% 63/100V 
.0022UF 630/1000V 5% 



CAP MET POLY 
CAP MET POLY 



02 



CAP MET POLY l.OUF 63VDC 5Z 
CAP MET POLY . 1UF 100V 10X RLDS 
CAP MET POLY 2UF-200VDC 10% 

CAP F IF POLYC 1000PF 160VDC/100VAC 
CAP MET POLY .22IJF 100V 10Z RLDS 
CAP MET POLY .022UF 5X 63/100V 
CAP MET EMI SUP X-CAP l.OOUF 250VAC 



CAP T ANT 47UF-6V 

CAP MET PAPER .0022UF 250VAC VDE AP 
DIODE GEN PUR 1A IN4004 400VDC 



Q5i Sir ( REF ) 
Q7i Q8i (REF) 
CR6 > Q4, < REF ) 

C2 

C13> C14 

C18 

C19 

CI, C41f C47 

C21 

C31 



C30. 



CU> CBO, C81 



C51 

C8 

C35 

C27. 

C43i 

C23 

C25 



C29, 
C44, 



C32r 
C45, 



C33f 
C46> 



C34 
C55» 



C56 



C48 

C3 
CIO 
C4> 
C5> 
C16 
C7 
C9i 

C83 

C12, 

C15 
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C54 

C62< 

CR1, 



C63i 
CR2r 



C84, C85 

CR3» CR9 i CRIOt CR11, CR12 



ITEM 
NO. 



COMPONENT 
PART NUMBER 



DESCRIPTION 



REFERENCE DESIGNATORS 



(0 
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I 

to 



053 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 
066 
067 
068 
069 
070 
071 
072 
073 
074 
075 
076 
077 
078 
079 
080 
081 
082 
083 
084 
085 
086 
087 
0B8 
089 
090 
091 
092 
093 
094 
095 
096 
097 
098 
099 
100 
101 
102 
103 
104 



12594 

14990-01 

10056-03 

10672 
14482 
12260-04 
1021 



15088-01 
14461-01 

11356-15 

1014 

10879 

1008 

1056 



7015 

10180-01 
10865 

12472 
15001-01 

14987- 01 

13733 
14033 
14034 
15115 
10799 
14850 
15012 
12209 
11944 

12592 

1005 

12675 

1118 

1016 

14988- 02 
14263-01 
13595 
12591 



DIODE SILICON CASE D0-35.IN4448 
DIODE FST RCV 9A 400V BYV29-400 
DIODE FAST RECV BYW 29-150 

DIODE SCHOT STD POL 45V 60A SD-51 
DIODE DUAL SCHOT 20A 45V TO-220 
DIODE HI CUR AX LDS. 30V. 6A SR3773 
DIODE HI CUR. AX LDS. 400V. 6A MR754 



DIODE FST RCV 3.5A 150V AXLD 
DIODE FST RECV 2A 100V AX LDS 

DIODE ZENER 500MU 8.2V 55! IN5998B 
DIODE ZENER 500 MU 5.6V 5X IN5994B 
DIODE ZENER 400MU 68V 5% IN5266B 
DIODE ZENER 400MW 1SV 5X IN965A 
DIODE ZENER 500MU 5.1V 52 IN5993B 



FUSE CLIP PCB TYPE FOR 3AG FUSE 
FUSE 5A-250V NORMAL-BLOW 
FUSE 10 AMP 250V (BUSS ABC10) 

RECEPTACLE AC RT ANGLE 6A 250V 
CONN IN LINE RT ANG PIN HDR 6 POS 
CONN RT ANG PCB 35 POS 

INDUCTOR 4MH 

INDUCTOR PWDR IRON 3.4UH 8 6A 
INDUCTOR PUDR IRON 5UH 10A 
INDUCTOR 5V 
INDUCTOR 18 UH 
BALUN SUPER E-375 XL301 
BALUN TOROIDAL 2xl»h XL301 
INDUCTOR AIR CORE 
INDUCTOR 18UH MIN. 

TRANS PNP CASE T0-92.MPS 2907A 

TRANS NPN POWER TIP-50 

TRANS PNP HI VOLT 400V TO-126 CASE 

TRANS NPN POWER MJE13007 

TRANS PNP CASE TO-92 2N4126 
TRANS NPN POWER 15A 1000V BUW 13A 
TRANS NPN POWER DARLING 10A TIP 140 
TRANS N-CHANNEL POWER FET VN10KM 
TRANS NPN CASE TO 92 2N4124 
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ITEM 
NO. 

105 
106 
107 
108 
10? 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 

124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 



COMPONENT 
PART NUMBER 



3081 
3124 
3108 
3099 
3088 
3072 
3110 



10318-47 

3064 

3024 

3098 

3080 

3046 
3104 
3096 



3048 

3020 
3135 



3128 
3069 



3092 
308? 

10318-102 
3084 

3106 
3100 
3079 



3060 
3120 
3130 
3122 

10328-34 
10328-36 
10328-45 

10232-17 
3336 

10304-71 



DESCRIPTION 



OBSOLETE ( RES 2.4K OHM 1/4U) 
OBSOLETE ( RES 150K OHM 1/4U) 
OBSOLETE(RES 33K OHM 1/4U) 
OBSOLETE < RES 13K OHM 1/4U) 
OBSOLETE ( RES 4 . 7K OHM 1/4W) 
RES CF IK OHM 5% 1/4W 
OBSOLETE ( RES 39K OHM 1/4U) 



OBSOLETE ( RES 180 OHM 1/4W) 
OBSOLETECRES 470 OHM 1/4U) 
OBSOLETE ( RES 10 OHM 1/4U) 
OBSOLETE < RES 12K OHM 1/4U) 
OBSOLETE ( RES 2.2K OHM 1/4W> 



OBSOLETE ( RES 82 OHM 1/4H) 
OBSOLETE ( RES 22K OHM 1/4U) 
OBSOLETE (RES 10K OHM 1/4W) 



OBSOLETE < RES 100 OHM 1/4H) 



REFERENCE DESIGNATORS 
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R65> RB8i R90 
R66 

R8S 

R86i RB7 
R84 
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OBSOLETE ( RES 


750 OHM 1/4U) 
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6.8K OHM 1/4U> 


R40f 


R75 


OBSOLETE ( RES 


5. IK OHM 1/4U) 
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1.2 OHM 1/4U) 
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3.3K OHH 1/4W) 
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27K OHM 1/4U) 
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RES MET OXIDE 22 OHM 5X 1 
RES CF 470K OHM 5X 1/2U 
RES CF 1.8K 5% 1/2H 



R23 
R12 

R44f R72 



ITEM 
NO . 



COMPONENT 
FART NUMBER 



DESCRIPTION 



REFERENCE DESIGNATORS 



a. 



156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
1B2 
183 
184 
185 
186 
187 
188 
18V 
190 
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192 
193 
194 
195 
196 
197 
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199 
200 
201 
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203 
204 
205 
206 
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11313-01 

11891-6491 

13598-08 

11891-4873 

10318-88 



10966-49 

10232- 95 

3825 

10233- 78 
10233-84 
11313-40 
11313-35 
10232-60 
11306-51 
11306-93 



3828 
3809 

10967-41 

3811 

3820 

3812 

3208 

3903 



10519-12 
10519-10 

3938 
13462 

3911 

10422-11 
7480 

14729 

12871-02 

14923 

12977 

13363 
11498 
14984-01 
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MF 


l.OK OHMS IX 1/8U 




R94 






RES 


MF 


6.49K OHMS IX 1/4U 




R61 






RES 


MF 


UNCUT LDS 365K IX 1/8U 




R18 






RES 


MF 


487K OHMS 1Z 1/4U 




R59 






OBSOLETE ( RES 9. IK OHM 1/4U) 
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IK OHM 10% 2U BUH 
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OXIDE 47K OHM 5X 1 U 




R20 






RES 


u w 


470 RUM ?U RUH 
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OXIDE 15K OHM 5% 2U 
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R22 
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OXIDE 27K OHM 5X 2U 




R21 1 


R57 i 


R58 
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2.55K OHMS 1Z 1/8U 
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MF 


2.26K OHMS IX 1/8U 
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OXIDE 1.3K OHM SX 1U 
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332K OHMS IX 1/8U 




R113 
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909K OHMS IX 1/8U 




R115 
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.30 OHM 5% 2U BUH 




R17 
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.33 OHM 5X 2U BUH 
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47K OHM 5Z SU 
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10 OHM 10X 1U BU20F 
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120 OHM 5X 2U BUH 
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UU 


82 OHM 10X 1U BU20F 
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2.2 OHM 5% 1/2U 
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10 OHM 5X 5U 




R25r 
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R120 
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5K OHM VADJ STURN .5U 
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R74 
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TRANSFORMER XL301 VBE/RFI 
TRANSFORMER PC MT SINGLE CORE 5T 
TRANSFORMER TOROIDAL XL301 
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COMPONENT 


DESCRIPTION 


NO. 


PART NUMBER 




20B 


14985-01 


I C VOLT REF 2*5V 2X TO-92 


209 


10505 


I C LOU POUER DUAL UOLT PflMP 1 mtqim 


210 


12219 


I C 0P AMP VC0MP 8 PIN MDIP LM392N 


211 


13437 


I C QUAD 2 IN SCHMITT TRIG CD4093BE 


212 


1000 


I C VOLT REG 723 


213 


7500 


TIE WRAP SHALL 


214 


12540 


I C AD J PREC SHUNT REG TO 92 


215 


7694-2 


NUT KEPS CONICAL 1/4-28 


214 


4009 


PIN MALE BEAD .65 LG .095 DI A 


217 


1 4957-03 


JUMPER TERMINAL FEMALE 


218 


15696 


SPRING CLIP HDUR CNDCT 12012 HTSINK 


219 


11092-01 


STANDOFF HEX 4-40 .250LG 


220 


15695 


SPRING CLIP HDUR NCNDCT 12012 H/S 


221 


10915 


STD MTG HDU PC BD SUPPORT NYLON 


222 


7501 


TIE WRAP MEDIUM 


223 


15451-01 


STIFFENED 1 . ?S Y A 1 R 

Jill TLllLn X . £. -J A "1 . £. J LO 


224 


11319 


RETAINING RING EXTERNAL 


225 
226 


12569 


LABELrCSA HARK 


227 


15081-01 




228 


12459 


LABEL FUSE WARNING 


229 


14996 


LABEL 115 VAC / 230 VAC 


230 


7740 


LABEL DANGER HIGH VOLTAGE 


231 


7881 


LABEL SERIAL NO. 


232 






233 


15640 


SPRING CLIP HDWR (NCNDCT) T0218/22O 


234 


7578 


SCREW P H 4-40 X 1/4 


235 


7511 


SCREW P H 6-32 X 1/2 


236 


7506 


WASHER FLAT #6 


237 


7588 


WASHER SPLIT RING LOCK \b 


238 


7577 


WASHER SPLIT LOCK *4 


239 


7505 


WASHER FLAT *4 


240 


10366-01 


UIRE RED 16 AWG 8' ( 1/4 X 1/4) 


241 


15633 


SPRING CLIP HDWR CNDCT TO-218/220 


242 


11661-01 


SPACER GLASS .225 OD .067 ID .185TH 


243 


7202 


0.0040RTV 108 CLEAR 


244 


15239 


LABEL UARNING 


245 


15240 


LABEL INFORMATION (UARNING) 


246 


15742 


LABEL CUSTOMER I D 


247 


7737 


0.0010LOCKTITE 


248 


12891-03 


PEM STUD 4-40 THREAD .625 LG 


249 


7508 


SCREU P H 4-40 X 3/8 



REFERENCE DESIGNATORS 



U9 
U7 
U6 
U5 
U4 

SI i (REF) 
VR1, VR2, VR3 
CR36t CR37f (REF) 
El, E2, E5 
JP4 

Q4, (REF) 
Pli (REF) 
CR6> (REF) 



C43, C44i C45» C46. C55, C56, (REF) 
CR34, CR37, (REF) 
L-BRKT j (REF) 



C46, (REF) 
L-BRKT, (REF) 
C43, (REF) 
Tl, (REF) 



CR32 
SI , 



> 07, 

(REF) 



08, Q9, Q15, (REF) 



Pli SI, L-BRKT, (REF) 
PI, L-BRKT, (REF) 
JP2, JP3 
05r (REF) 

RTlf RT2, R21, R57, R5B , (REF) 

L6, L7, C15, C43, C44, C45, C46, C55, C56, (REF) 
L-BRKT, (REF) 
L-BRKT, (REF) 
L-BRKT, (REF) 

P.C. B.D., (REF) 
L-BRKT, (REF) 
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A.l4 HP 12151+A BATTERY BACKUP MODULE 

The HP 1215UA battery backup module for the Micro/1000 computers is designed 
to provide current that will retain the current status of the system in 
memory if ac power is interrupted. The Hewlett-Packard part number for this 
card is 1215U-60001 . The schematic for this card is shown in Figure A-12. 



A.l+.l CONFIGURATION 

The battery backup module is installed in the l6-slot backplane of the 
Micro/1000 A-series computers. The sixth, seventh, and eighth physical slots 
down from the top of the left side of the card cage are dedicated to the 
battery backup module. There are three slots reserved to account for the 
height of the batteries and the space necessary for component heat sinks. 

A.U.2 PHYSICAL DESCRIPTION 

The module (or card) dimensions are the following: 

Width: 6.75 inches (171 mm) Standard card width 

Depth: 12.75 inches (32U mm) Attaches to bulkhead connector panel 

Max. Component Height: 2.0 inches (51mm) for D-size battery packs 

A.U.3 ELECTRICAL SPECIFICATION 

The module is comprised of the battery charging circuit, enable/disable 
circuit, D-size battery pack, and a control circuit. When power is present, 
the module will charge the 9.6V Nicad (nickel/cadmium) batteries. When power 
fails, the 9.6V battery voltage is reduced to 5. IV through the regulator, and 
supplies the +5M power line to sustain memory. 

The module derives its power from the 12V dc output of the system power 
supply. When the voltage of the batteries drops below 8.0V, the module will 
inhibit the +5. IV memory regulator circuit. 

A.k.k THEORY OF OPERATION 

The theory of operation. The internal battery pack is charged from both 28V 
and 12V. The 12V backplane voltage is used to provide a heavy charge for 
discharged batteries. As the batteries charge to about 11.3V, the 28V supply 
is used as a trickle charger. The input selector is essentially three diodes 
that select the highest input voltage. Note the 28V supply would be the 
normal input, until a power fail when the batteries would become the input. 
This is important because the output of this circuit, +5VM, is produced by 
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the circuitry on this card. Thus to determine if the battery or card is at 
fault, the battery pack can be disabled, by turning of the battery enable 
switch on the front panel, and if the +5VM is present the battery pack is 
probably at fault (if the 28V and 5V voltages are present). 

The DC-to-DC converter, coupled with the control circuit, make this a 
switching power supply. The control circuit switches the DC input voltage to 
maintain a pulse width with a constant amount of power. Thus, a 28V input 
will have a tall narrow pulse, a 8V input will have a low wide pulse. The 
pulses feed an inductor that creates a constant voltage output for a 
capacitor-resistor integrator that produces the +5VM. This supply will stop 
if the battery voltage drops below 8V (to protect the ni-cad batteries) and 
will shut down if an over current condition exists. The 2.5V reference has a 
+/- accuracy of 0.%. The feedback circuit drives the control circuit to 
regulate the pulse width of the DC-to-DC converter. Overall voltage 
regulation is 2%. 

The battery charger consists of four parts: Diode CR2 is connected to the 
+12V supply and to a 10 ohm resistor, R2. R2 is connected to the positive 
side of the battery. Diode CR1 is similarly connected to +28V and 100 ohm 
resistor Rl which is also connected to the positive battery connection. 
Diode CR2 conducts until the battery voltage approaches 11.3V. CR2 becomes 
reverse biased and CR1 now trickle charges the battery. 

On the front of the card are two LEDs, one green and one red. The red LED 
indicates that an overcurrent of overvoltage condition has occurred and the 
battery backup card is shutdown. This could be caused by a short in the +5VM 
line that goes to memory. Either a memory card, a processor card or the 
backplane could be faulty, as well as the battery backup card itself. To 
reset after isolating and repairing the problem, turn off the battery enable 
switch, turn off the power, then turn both back on. 

The green LED indicates the +5VM is within specifications. If both red and 
green LEDs are on, the battery backup card is faulty. As long as the green 
LED is on, the memory is being sustained. 

The computer must be on and the battery enable switch turned on to charge the 
batteries. The battery enable switch should be turned off when 
removing/ inserting assemblies to avoid arcing and transients. 

A. I*. 5 REPLACEABLE PARTS 

Replaceable parts for the HP 1215I4A are listed in Table A-l6 and a parts 
location diagram for it is shown in Figure A-13. 
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&ATTEW PACK. 

I 1 




Ul 



CHUT- 



1826- I0SO 



(.2 I80UH R2H 
— — 




C8 
-r o.io 



Cll 
0.10 



V V 



. R.I2 

I'L 



Mi 

0.0| 



R20 




0.10 



j; OK 



R22. 



$ I0K 5 I0K ^2I.5VIKT 
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| ibl K 
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^wcrio 




PY feCKPUNQ 

T-t 



tonnoN 
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Qkt pointT] 



21 

1 

50 
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Table A-16. HP 12154A Replaceable Parts (Sheet 1 of 2) 



Reference 

■ 1 W Ivl w 1 I WW 

Designation 


HP Part 
Number 


c 

D 


Qty 


Description 


Mfr 
Code 


Mfr Part Number 










PPA — RACK 1 IP 


28480 


12154-60001 


Bl 


1420-0321 


1 


1 


BATTERY ASSEMBLY 9.6V NOh* RECHARGEABLE 


20480 


1420-0321 




n 1 tll-iflW 

U 1 oU"*ON 






PAP ar T TflB -FKTi 11 IF + — 1 fix ^nuur PFR 


2G480 


0 160-4835 


C2 


II 1 OU ^OJJ 






CAPACITOR-FXD ,1UF +"-10% 50VDC CER 


28480 


0 1 60-4835 


C3 


D 1 40-4833 


5 




CAPACITOR-FXD . 022UF +-10% 100UDC CER 


28480 


01 £.0-4B33 


C4 


0160-4847 


1 




CAPACITOR-FXD 1000PF ► -10% 100VDC CER 


28480 


0160-4847 


C5 


U l OV MOM 


^ 




CAPACITOR-FXD .1UF +— 10% 5DVDC CER 


28480 


0 1 60-4835 


C6 


0 1 60-4835 


7 




CAPACITOR-FXD . 1 UF + -10% 50WDC CER 


28480 


0 160-4835 


C7 


0 1 60-4835 


7 




CAPACITOR-FXD .1UF +-10% 50VDC CER 


28480 


0160-4835 


C8 


0160-4835 


7 




CAPACITOR-FXD .1UF +-10% 50VDC CER 


28480 


0161-4835 


C? 


0160-4835 


7 




CAPACITOR-FXD . 1UF +-10% 50VDC CER 


28480 


0160-4835 


ci o 


0 1 90 -2997 


Q 




CAPACITOR-FXD 1500UF+1 00-1 0% 25YDC AL 


56289 


674D158H025HJ5A 


n 1 


n \ kn — AttT^i 

U 1 Q U WOQ 


_ 




CAPACITOR-FXD .1UF +-10% 50VDC CER 


28480 


0160-4835 


CIS 


Fit L A.idl? 

u loll w4/ 






CAPACITOR-FXD 1 OOOPF +1 0% 1 0OUDC CER 


28480 


01 60-4847 


C13 


0180-3019 


9 


3 


CAPACITOR-FXD 1000UF+50-10X S0VDC AL 


2O480 


0180-3019 


CI 4 


0180-3019 


9 




CAPACITOR-FXD 1 OOOUF+50-1 OX 50VDC AL 


284S0 


01B0-3019 


CIS 


0180-3019 


9 




CAPACITOR-FXD 1 OOOUF+50-1 OX 50VDC AL 


28480 


0180-3019 


CI 6 


u 1 6U 4b .3D 






LnrHLi 1 UN rAV ■ IUt t IUA JUVHl, LtN 


28480 


01 60-4835 


C17 


0 1 60 -4635 


7 




CAPACITOR-FXD ,1UF +-10% 50VDC CER 


28480 


0160-4835 


CIS 


0160-4835 


7 




CAPACITOR-FXD . 1UF +-10X 50VDC CER 


28480 


0160-4835 


CR 1 


i Oft* _ fti."7"I 
1 TBI — U6/J 






nTDTiF— pud bftt i nnu "^a ^nc 


03508 


A15A 


CR2 


1V0 1— 0673 






nTfinr-PUD dfpt 1 nnu ^a "imp. 


03S08 


Al 5 A 


CR 3 


1 901 — 0673 


6 




UlUUt rHK KLLI IUUV 3n 3U9 


03308 


A15A 


CM 


1906-0265 


2 


1 


DIODE-RECT. 


28480 


1906-0265 


CR5 


1901-0050 


3 


4 


DIODE -SWITCHING 80U 200HA 2NS DO-35 


2B4B0 


1901-0050 


CR6 


1901-0050 


3 




DIODE-SUITCHINC 80V 200HA 2N5 DO-35 


28480 


1901-0 050 


CR7 


1903-3245 


6 


1 


DIODE-ZNR 21.5V 5X DO-35 PD-.40 


2B4B0 


1902-3245 


CRS 


1702—0939 






r\Tnric-7iijo cu [tn-iu ttc* nAV TRaTnniiA 

UlUUt £nK 3V r U — 1 L* c ^ i U O A IF'oyuUM 


1 1961 


1N5908 


CR9 


1 990—0486 


6 


* 






5082-4684 


CR1 0 


1 990—0485 


5 


* 


l rn.l AMP 1 IIM— IMTsflftniirn TFa^nMA— MAY 


2 8460 


5082-4984 


CR11 


1901-0460 


9 


2 


DIODE -STABISTOR 30V 1S0MA DO-7 


28480 


1901-0460 


LI 


91 40-081 1 


8 


1 


1NUUL I UK JaoUn 1 UA 1 • /UA 1 iCLw 


28480 


91 40-081 1 


LZ 


91 00—2279 


2 




t hjniirTno dc ru^ui is iqamu * 11 V 1 n m^v P 
INDUCTUK ffr — LH HLD 1 UUUH 1 UX , 1 UDUa > eoLU 


2O460 


q i nn— ?s>79 

T 1 UU Ct/ T 


Q1 


1854-001 3 




2 


TD AUC T CTDD UDU OA Ct Tn_1 PAbDAAMU 


04713 


2N2218A 


0.2 


1854-0013 


7 




TRANSISTOR NPN 2N2218A SI TQ-5 PD=BO0MW 


04713 


2N2218A 


03 


1854-0467 


5 


3 


TRANSISTOR NPN 2N44Q1 SI TO-72 PD-310MW 


03508 


2N4401 


Q4 


1 853— 0 0 36 


2 


2 


TOAUOTCTM DUD CT BTWXirtMU ITTr^inMU? 




1 D JS tltlwO 


Q5 


1854—0467 


^ 




TD AMP.TC.TnD MP hi PNAAB1 *EI Tfl - 9? PB="11 OMU 
1 nnnsiS 1 UK rtr n tni^i I si IU ' C r ■/ o i u nw 


03508 


2N4401 


06 


1 853—0036 


2 




TDAUC T CT HO DUO CT OTlaTl I1MI.I LTThQ^IiMU7 

TK ANSIS I UK rNr bl rU a Jl unw r 1 "cOUrlMi 


284B0 




07 


1B54-0467 


5 




TRANSISTOR NPN 2N4401 SI TO- 92 PD-310MU 


03508 


2N4401 


R1 


08U -3644 


5 


1 


RES IS TOR 1 U 0 1 0 * 1 BW rN 7L"D+ JU U 




ft CM 1 

U Q 1 1 JO^H 


R2 


081 1 -3656 


9 


1 


RESIST UK 3 ID* low r W 1L=U+aUU 


?R4flf! 


061 1-3656 


R3 


0 683-4745 


6 


2 


RESISTOR 47 OK SZ . Z3W rC TU a — aU U/+T U U 






R4 


0698-3452 


1 


2 


RESISTOR 1 47K 1 % • 1 25U F TC"0+— 100 


24546 


PA -1 /B-Tfl-1 A7"^— F 


R5 


0757-0199 


3 




RESISTOR 21. 5K 1% .125U F TC*0+-100 


24546 


C4-1/8-T0-2152-F 


R6 


0683-1 015 


7 




RE5ISTQR iDD 5/L iC3H rL It" 4UU/+DUU 


ni ill 


CB1015 


R7 


0 683- 1015 


7 




RESIdTOK IDD 3% i£9H H 1 U a — 4U U / *DU U 




CB1 015 


R8 


0683-4705 


8 




RESISTOR 47 31 i cjH rL I L"— 4(111/ I3UU 


ni 1 ?| 




R9 


0683-1035 


1 


26 


RESISTOR 1 OK 5X .230 FC TC*— 400/+700 


01121 


CB1 035 


RIO 


0757-0444 


1 




RESISTOR 12. IK IX .1230 F TC-Ot-100 


24546 


C4- 1/S-T0-1212-F 


Rl I 


0757-0462 


3 


2 


RESISTOR 75K IX . 125U F TC"0+-100 




f»a„ i /O— Til — 7^113— C 


R12 


0757-0442 


9 


8 


RESISTOR 10K IX .1250 F TC«0+-100 




f~J_l /O—Tfl— 1 A<IO_C 

1 / a I 11 1 lll^ r 


R1 3 


0811-3511 


5 


1 


RESISTOR .01 IX 20 POO TC»0+-150 


284B0 


OBI 1 —331 1 


R14 


0683-1 035 


1 




RESISTOR 10K 5X .250 FC TC«-400/+700 




CB 1 035 


R15 


0683-1045 


3 




RESISTOR 100K 5X .250 FC TC=-400/+800 


01121 


CB1 045 


R16 


0683-5635 


5 




RESISTOR 56K 3X . 25U FC TC--400/+800 


01121 


CB5635 


R17 


0683-1825 


7 




RESISTOR 1.8K 5X .250 FC TC— 400/+700 


01 121 


CB1825 


R18 


0663-1 035 


1 




RESISTOR 10K SX . 250 FC TC— 400/+700 


01121 


C01035 


R19 


0764-0013 


5 


1 


RESISTOR 56 5X 20 HO TC*0+-200 


284B0 


0764-0013 


R20 


0757-0442 


9 




RESISTOR 10K IX .1250 F TC-0+-100 


24346 


C4-1/B-TO-1002-F 


R21 


0698-8824 


1 




RESISTOR 562K IX .1250 F TC-0+-100 


28480 


069B-8B24 


R22 


0757-0442 


9 




RESISTOR 10K IX .1250 F TC-Of-100 


24546 


C4 -1/8 -T0-1002-F 


R24 


0757-0442 


9 




RESISTOR 10K IX .1250 F TC-0+-100 


24546 


C4-1/B-T0-1002-F 


R2S 


0683-1035 


1 




RESISTOR 10K 3X .250 FC TC--400/+700 


01121 


CB1I35 


R26 


0 603- 1035 


1 




RESISTOR 10K SX .250 FC TC— 400/*700 


01121 


CB103S 


R27 


0683-1035 


1 




RESISTOR 10K 5X .250 FC TC- 400/+700 


01121 


CB1 035 


R28 


0683-1035 


1 




RESISTOR 10K 5X .250 FC TC«-400/*700 


01121 


CB1035 


RE? 


0757-0416 


7 


4 


RESISTOR 311 IX .1250 F TC-0+-100 


24546 


C4-1/B-T0-S11R-F 


R30 


0683-1055 


5 




RESISTOR 1H SX .250 FC TC"=-800/*900 


01121 


CB1055 


R31 


0683-1055 


5 




RESISTOR 1M 3X .250 FC TC- -80 0/ 1-90 0 


01121 


CB1055 
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Table A-16. HP 12154A Replaceable Parts (Sheet 2 of 2) 



HeTerence 
Designation 


LID D*»»+ 

Mr rart 
Number 


C 
D 


Otv 




Mfr 
Code 


lUfr Dart hjumkap 

iviTr rail roUFTiDer 


R32 


0683-2215 


1 


10 


RESISTOR 220 5% . 2SU FC TC--400/+600 


01121 


C0221 5 


R33 


0683-33 15 


4 




RESISTOR 330 SX . 25U FC TO- 400/+600 


01121 


CB331S 


R34 


0757-041 6 


7 




RESISTOR 511 IX . 125W F TC»D+— 100 


24546 


ri .1 /a~t n— *i 1 D— r 


R35 


0683-1025 


9 


6 


RESISTOR IK 5* ,2SU FC TC--400/+600 


01121 


CB1025 


036 


0683-1035 


1 




RESISTOR 10K 5X . 25U FC TC— 400/+700 


01121 


CI1035 


R37 


06B3-1035 


1 




RESISTOR 10K SX .25U FC TC— 400/+700 


01121 


CB1035 


R3B 


0683-1035 


1 




RESISTOR 10K 5X .25U FC TC— 400/*700 


01121 


Cll 035 


R39 


0683-1035 


1 




RESISTOR 10K 5X .25U FC TC— 400/+700 


01121 


CB1035 


R40 


0683 -2215 


1 




RESISTOR 220 5X .25U FC TC— 400/+600 


01121 


C 12213 


R41 


0683-3325 


6 


2 


RESISTOR 3.3K 5X .25W FC TC— 400/*700 


01121 


CB332S 


R42 


0683-2215 


1 




RESISTOR 220 SX . 25U FC TC— 400/+600 


01121 


CI2215 


R43 


0683-2215 


1 




RESISTOR 220 5X .25W FC TC— 400/+600 


01121 


CB2215 


R44 


0663-1035 


1 




RESISTOR 10K 5X . 2SU FC TC— 400/+700 


01121 


C>1 035 


R45 


0683-2215 


1 




RESISTOR 220 5X .25W FC TC— 400/+600 


01121 


CB2215 


R46 


0683-1025 


9 




RESISTOR IK 5X .25U FC TC— 400/+600 


01121 


C11025 


R47 


0683-1025 


9 




RESISTOR IK SX .25U FC TC— 400/»600 


01121 


CB1025 1 


R48 


0683-1035 


1 




RESISTOR 10K 5% . 25H FC TC— 400/+700 


01121 


CB1035 


UI 


1B26-10S0 


5 




IC V RCLTR-SUC 4.9/5.1U 16-DIP-P PKC 


2B480 


1826-1050 


U2 


1826-0544 


0 




V REF B-DIP-C 


04713 


HC1403U 


U3 


1B13-0114 


3 




IC V RCLTR TO-3 


12V6V 


PIC64S 


U4 


1820-3516 


0 




IC TIMER CMOS 


28480 


1821-3516 


US 


1826-0138 


8 




IC COMPARATOR CP QUAD 14-DIP-P PKG 


01 275 


LM339N 



The parts manufacturer's names and addresses are listed in the Manufacturer's 
Code List below. 



Manufacturer's Code List 



MFR NO. 


MANUFACTURER NAME 


ADDRESS 


ZIP CODE 


01121 


Allen -Bradley Co 


Milwaukee, WI 


532014 


01295 


Texas Instr Inc Semicond Cmpnt Div 


Dallas, TX 


75222 


03508 


GE Co Semiconductor Prod Dept 


Auburn, NY 


13201 


01*713 


Motorola Semiconductor Products 


Phoenix, AZ 


85008 


11236 


CTS of Berne Inc 


Berne , IN 


k6fll 


11961 


Semicon Inc 


Burlington, MA 


01803 


12969 


Unitrode Corp 


Watertown , MA 


02172 


2l+5*t6 


Corning Glass Works (Bradford) 


Bradford, PA 


16701 


28i+80 


Hewlett-Packard Co. Corporate Hq 


Palo Alto, CA 


9I430U 


31585 


RCA Corp Solid State Div 


Somerville, NJ 


O8876 


56289 


Sprague Electric Co. 


North Adams, MA 


0121+7 


75915 


Littlefuse Inc 


Des Plaines, IL 


60016 
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A. 5 HP 12159-A 25 kHz POWER MODULE 

The HP 12159A is a module that takes the 25 kHz square-wave power from the 
300W power supply and provides 25 kHz sine-wave power to the l6-slot 
backplane of a Micro/1000 computer for distribution to certain I/O cards 
having on-card power supplies. The module plugs into slot 8 of the 
backplane, and does not need forced air flow for cooling. 

The Hewlett-Packard part number for this module is 12159-60001. 



A. 5.1 HP 12159A SPECIFICATIONS 

The HP 12159A electrical specifications are provided in Table A-17, and the 
connector pin definitions are listed in Table A-18. 
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Table A-17. HP 12159A 25-kHz Module Electrical Specifications 



Input Specifications: 

Min 

Phase to Phase 11.28 
RMS Current (max) 0.00 
Frequency 2k 
Input Power 

Output Specifications: 

Maximum output power 
Maximum distortion 
Maximum dynamic load change 

Output Stress Conditions: 

The module shall recover, with no permanent damage from a shorted 
regulated output (it may be necessary to replace the fuse to 
resume normal operation) 



Nominal 


Max 




12.00 


12.72 


Volts 




3.20 


Amps 


25 


32 


kHz 




36 


Watts 



30 Watts 

10% total harmonic distortion 
10% of load over 10 microseconds 



Output Loading: 



The load on the 25 kHz module can be applied from phase-to-phase 
(39 Vims) or from phase -to -common (19-5 Vrms). Up to one half 
of the maximum rated power can be drawn from each phase (phase- 
to -common) or up to all of the rated power can be drawn phase- 
to-phase as long as the total power does not exceed the maximum 
rated power. The phase to common load need not be balanced 
between between the two phases . 



Regulated Output Specification: 



Nominal Voltage 39 Volts rms 

Split Phase 19. 5 Volts rms 

Maximum Current 0.8k Amps 

Regulation: 

0.0 to 0.02 Amps +10% -12% 

0.02 to O.8I4 Amps +8% -8% 



A-50 
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Table A-18. HP 12159A Electrical Connector (P1) Pin Definitions 



PIN 


SIGNAL NAME 




25 kHzl 


15-18 


25 kHz 2 


19-22 


GND 


23-26 


AC02 (phase 2) 


27-30 


AC01 (phase 1) 



A. 5. 2 HP 12159A THEORY OF OPERATION 

For this theory of operation, refer to the schematic shown in Figure A-lh. 
The input transformer Tl steps the input 2h Volt peak-to-peak square wave up 
to llU Volts peak-to-peak across 3-6. The winding 5-6 regulates the output 
as described below. 

LI, L2, CI, and C2 are the main harmonic filters of the square wave. The 
regulator coil L3 also contributes to filtering. 

Components Rl, R2, C3, and Cl+ attenuate the noise generated by the switching 
diodes CR1 and CR2. 

The regulator limits the amplitude of the output sine wave to less than 59 
Volts and imposes no minimum value. The output of CR1, CR2, and C5 is the 
peak of the output sine wave. If this voltage exceeds 26 volts (zener diode 
CR3 voltage) plus the B-E drops across Ql and Q2, then a current flows into 
the base of Ql, causing current flow through CRU and Q2. This current adds 
to the main circuit current through L3, causing a voltage drop across L3< 
This voltage drop is a strong function of excessive output voltage which has 
the effect of providing regulation. 

The regulator clamps the output to be less than or equal to the sum of the 
zener voltage plus the B-E drops of the transistors. 

A. 5. 3 REPLACEABLE PARTS 

Replaceable parts for the 12159A are listed in Table A-19 and the names and 
addresses of the parts manufacturers are listed in the Manufacturer's Codes 
List below. The parts locations are shown in Figure A-15- 
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Manufacturer's Code List 



MFR NO. 


MANUFACTURER NAME 




7tp rnnir 


00000 


Any Satisfactory Supplier 






01121 


Allen-Bradlev Co 


M t 1 T»Ta 11 Iraa TJT 




01295 


Texas Instr Inc Semieond Onnnt Div 


Ha 1 1 t\ <: TY 


7COOO 


03888 


K D I Pvrofilm Corr> 


IaTV^ T Y"»Y"» a Y\ XT KT T 

riii ±±)y<xiiy , vttj 


u f yo± 


01+713 


Motorola SpftH ronHuotnr PmHiif+c 


PVi^awiv A "7 
rilUfc?Hx.A 9 nti 


O^UUO 


07263 


Fairchild Semiconductor Div 


Mt Vipu TA 




07910 


Teledyne Semiconductor 


Ha tj+ Vi mri a PA 




11236 


CTS of Berne Inc 


Rama TW 


HO f J.X 


11961 


Semicon Inc 


Rut*! "ino*+r\r» MA 
XJUl J.xllg UUll ^ rirl 


UJ.OUJ 


1U936 


General Instr Cora Spmicon Prod flr> 






19701 


Menco /Electra Cons 


Mt na r*j* 1 Ua lie TV 


f DUO ( 


2U5I+6 


Corning Glass Works (Bradford) 


Bradford, PA 


16701 


27014 


National Semiconductor Corp 


Santa Clara, CA 


95051 


28U80 


Hewlett-Packard Co. Corporate Hq 


Palo Alto, CA 


9U30U 


32293 


Intersil Inc 


Cupert ino , CA 


9501J+ 


3*635 


Advanced Micro Devices Inc 


Sunnyvale , CA 


9I+086 


3^6U9 


Intel Corp 


Mt. View, CA 


95051 


50088 


Mostek Corp 


Carrollton, TX 


75006 


5036U 


Monolithic Memories Inc 


Sunnyvale , CA 


9U086 


56289 


Sprague Electric Co 


North Adams , MA 


0l2lt7 
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Figure A-15. HP 12159A Replaceable Parts Locations 
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Table A-19. HP 12159A Replaceable Parts 



Reference 
Designation 



HP Part 
Number 



Qty 



Description 



Mfr 
Code 



Mfr Part Number 



CI 
C2 
C3 
C4 
CS 

C6 

cm 

CR2 
CR3 
CR4 

F1 

LI 
L2 
1.3 

ai 

82 

111 
R2 
R3 
R4 

Tl 
T2 



12139-40001 

0160-6041 
0160-6040 
0160-0161 
0160-0161 
0100-0269 

0180-0141 

1901-0096 

1901- 0096 

1902- 3269 
1906-0077 

2110-0001 

9140-0863 
9140-0861 

9140- 0862 

1854-0079 
1834-0727 

0698-3620 
0698-3620 
0683-2739 
0683-2215 

9141- 0859 
9140-0860 



PCA-25KHZ 

CAP 0.1 UF 
CAP 0.1 UF 

CAPACITOR-FXD .01UF +-1 OX 200VDC POL YE 
CAPACITOR-FXD .01UF +-10X 200VDC POLYE 
CAPACITOR-FXD 1UF+50-10X 130UDC AL 

CAPACITOR-FXD 50UF+75-1 0 X S0VDC AL 

DIODE- SWITCHING 120V SOMA 100NS 
DIODE-SWITCHING 120V SOHA 100NS 
DIODE-ZNR 26. IV 21 DO-35 PD-.4W 
DIODE-FU BRDG 400V 5A 

FUSE 1A 250V NTD 1.25X.25 UL 

IND-FXD 240UH 
IND-FXD 335 UH 
IND-FXD 95UH 

TRANSISTOR NPN 2N3439 SI TO- 3 PD'IW 
TRANSISTOR NPN 2N6474 SI TO-220AB PD-40W 

RESISTOR 100 SX 2W HO TC-Oi-200 
RESISTOR 100 5X 2U HO TC*0*-200 
RESISTOR 27K 5X .25U FC TC— 400/tBOO 
RESISTOR 220 5X .25U FC TC— 400/^600 

XFHR 
XFMR 



28480 


12139-60001 


2B480 
2B480 
28480 
28480 
56289 


0160-6040 
0160-6040 
0160-0161 
0160-0161 
30D10SG150BA2 


56289 


30D506G050DD2 


28480 
284B0 
28480 
28480 


1901-0096 
1901-0096 
1V02-3269 
1906-0077 


75915 


312001 


28480 
28480 
28480 


9140-0B63 
9140-0861 
9140-0862 


3LSBS 
3L5B5 


2N3439 
2N6474 


28480 
28480 
01121 
01121 


0698-3620 
0698-3620 
CB2735 
C02215 


28480 
2B480 


9140-0859 
9140-0860 
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A. 6 25 kHz BACKPLANE POWER APPLICATIONS 

25 kHz backplane power can be used when designing special interfaces on the 
12010A Breadboard Interface to provide ac input power for compact, 
lightweight on- interface dc power supplies to meet any of the following 
requirements . 

1. Provision of dc voltages in addition to those supplied by the power 
supply . 

2. Provision of dc supplies whose analog grounds are isolated from the 
computer ground. 

3. Provision of multichannel isolated power to digital communication 
circuits to eliminate ground noise paths and maximize the reliability of 
serial data transfers. 

k. Low voltage, high current power for supplying large arrays of integrated 
circuits . 



A. 6.1 NON- ISOLATED POWER SUPPLY 



A. 6. 1.1 Purpose and Basic Design 

Where additional +7-5V to +12V dc at up to 1 amp is needed for interface 
circuits, the 25 kHz backplane power can be used to provide a non-isolated 
positive regulated power supply as shown in Figure A-l6. The 19>5V rms 
potential on either side of common provides at least +15 . UV dc after 
rectification and filtering. An adjustable, off-the-shelf, three -terminal 
integrated circuit voltage regulator (National Semiconductor Series LM11 7 or 
equivalent) can be used to set the regulated output voltage within the range 
of +7.5V to +12V dc. The regulated voltage output is dependent upon the 
values of resistors R2 and R3. A negative output voltage supply similar to 
the positive supply shown in Figure A-l6 can be made by reversing the 
polarities of the rectifiers and using a negative adjustable regulator, 
(National Semiconductor Series LM137 or equivalent). 



A. 6. 1.2 Preserving Purity of Input Sine Wave 

To maintain the purity of the input 25 kHz sine wave, near 180 degree 
conduction should be provided in the rectification process, which 
necessitates the use of a choke input filter. This filter also limits the 
surge current at turn-on if the requirements for Lmin are met. The equation 
for Lmin with a 25% safety factor is given by: 
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Lmin (in henries) = (K/fs) x Rl 

where: Fs = 25 kHz 

Rl = Minimum load resistance 

K =0.06 for full wave rectifiers 

This implies the need for a minimum load. If the circuits to be powered 
allow the load current to go to zero, a preloading bleeder resistor is 
required. The final value of Lmin would then be determined by the allowed 
power loss (dissipation) of the preloading resistor. When the Lmin 
requirement is met, the surge current will be acceptable and sine wave 
distortion will be minimized. 



A. 6. 1.3 Rectifier Selection 

Rectifiers used with 25 kHz input power must be of the fast recovery type 
with less than 200 nanosecond recovery time. Allowing for possible 
transients from leakage instances, overshoot, and MTBF derating, the 
rectifiers should also have 100V peak inverse voltage rating. 



12010A 

BREADBOARD 
INTERFACE 
CONNECTOR 
P2 CONTACTS 



LOSSY FERRITE 
BEADS IF REQUIRED 




(DALE IHA-1 OR 
EQUIVALENT) 



COMMON ( 2,15 



IN OUT 
ADJ 



C3 

SEE 

TEXT 



R1 

1K!1 

1W 



R2 



R3 



C4 



UNREGULATED 
+ 14. 5V DC MIN. 



REGULATED 

• 8V TO * 12V DC 



COMMON 



NOTES: U1 is a National Semiconductor type LM117 Series or equivalent 
adjustable regulator. 

Values of C4. R2, and R3 should be selected in accordance with 
instructions in U1 manufacturer s data sheet 

Figure A-16. On-interface Regulated Power Supply 
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A.6.1.U Input Noise Reduction 

During rectifier recovery, the removal of stored charge in the rectifiers 
will appear as spikes on the rectifier inputs. These spikes should be 
suppressed to keep them from travelling along the 25 kHz ac input lines in 
the backplane. Small 0.001 to 0.1 microfarad ceramic capacitors (CI and C2 
in Figure A-l6) will usually damp out these spikes, with the required 
capacitor value dependent upon the magnitude of stored charge being removed. 
If underdamped ringing is present because of leakage inductance, small 
ferrite beads, tubes, or toroids can be threaded onto the rectifier leads to 
provide a "lossy" inductive reactance at high frequencies to effectively 
dissipate undesirable recovery currents. 

A. 6.1. 5 Input Filtering 

The value of C3 is determined by the amount of ripple voltage that can be 
tolerated at the input of integrated circuit regulator Ul. The Vin-Vout 
differential of 3 volts must be met for any chosen output voltage as noted in 
Reference 2. The Ripple factor r for a full-wave rectifier circuit is given 
by: 

-6 

r = (0.83/(Ll x CI) x 5.76 x 10 

The case size and construction of capacitor C3 must be capable of conducting 
the ripple current without excessive dissipation. Ripple current will be at 
2 fs and will be sinusoidal when Lmin requirements are met. The rms ripple 
current in amps is given by: 

lr = VRMS/(l4n x fs x LI) 

Where: VRMS is the input voltage phase to common 

fs = 25 kHz 
Ll> = Lmin 

The minimum inductive value of LI must be present with the dc current flowing 
through it over the complete load current range. This requires an inductor 
with gaps in the magnetic circuit, either fixed or distributed, such as in 
powdered iron cores, or solenoid -wound inductors over ferrite rods (available 
from Reference 9)> 
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A. 6. 1.6 Regulator Dissipation 

Since the regulator is a linear series pass type, the difference between the 
voltage developed across C3 at the regulator input and the desired output at 
the load current must be dissipated in the regulator. This dissipation is 
given by: 

Pdiss = (Vin-Vout) x (IL + Vin Iq) 

Where: Iq = the quiescent current of the regulator. 

Case to junction thermal resistances are given in the regulator 
manufacturer's data sheet. The dominant thermal resistance will be the case 
to air stream, which is usually available on heat sink manufacturer's data as 
a function of air velocity. You can assume a minimum 200 ft/min flow across 
the board with a maximum air temperature on the exit side of 66 C under 
worst case conditions. For low power on-card dc supplies, the copper foil on 
the printed circuit board can be used as a heat sink. However, the 
suitability of this arrangement should be checked carefully with 
thermocouples to confirm that the temperature rise of the regulator is not 
excessive . 



A. 6. 2 ISOLATED OR FLOATING DC POWER 

A major advantage of the 25 kHz backplane power is its ease of use for 
isolated power supplies that can have separate analog grounds , thereby 
reducing the effects of ground-conducted noise as discussed in References 3 
and U. Isolation is provided by an on-interface transformer, as shown in 
Figure A-17- The use of 25 kHz ac input makes it possible for the isolation 
transformer to be very small and inexpensive. Toroidal printed circuit 
mounting types or "P" core (Reference 7) shielded printed circuit mounting 
types generally offer the best price-performance combination. However, small 
E-E types can also be used at lower cost with some sacrifice in 
electromagnetic and electrostatic shielding. High permeability ferrite 
materials having low losses at 25 kHz are readily available with matching 
bobbins and mounting hardware from References 6 through 10. 

Primary-to-secondary isolation of both dc and high frequency can be somewhat 
complex. References 3 and k describe single and double shielded 
transformers. It is possible to achieve high isolation with small ferrite 
cores and proper inter-winding shield design. Simple copper foil 
inter-winding shields are relatively inexpensive and are effective in 
decreasing primary-to-secondary electrostatic coupling at frequencies from 
100 Hz to about 100 kHz. For higher frequencies, "link" coupling of two 
cores or other techniques may be required (Reference 3» p 117) • 
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The ground isolation provided by the multi-channel +10V 30 MA power supply 
circuits depicted in Figure A-17 eliminates errors caused by ground- induced 
noise. In analog voltage measurement applications, power supply isolation 
minimizes common mode noise, improving measurement accuracy. With respect to 
digital data transmission uses, power supply isolation allows data terminals 
to operate at greater distances from the local system with fewer data errors 
than would otherwise be possible. When the power supply is not isolated, 
noise in the 50/60 Hz mains power distribution and grounding system supplying 
the computer can cause current noise loops that degrade signal integrity. 



12010A 

BREADBOARD 
INTERFACE 
CONNECTOR 
P2 CONTACTS 

( "7, 48 ) — 



ON-INTERFACE 

ISOLATION 
TRANSFORMER 



39V 
RMS 



6 



ADJ 
REG 



n 



10V 30 mA 



-t>H 



-0H 



-TY-Y. 



ADJ 
REG 



1 0V 30 mA 



Figure A-17. Multiple, Isolated, On-interface Power Supplies 



A. 6. 3 LOW- VOLTAGE, HIGH -CURRENT POWER SUPPLY 

Heat dissipation is often the main factor limiting the current output of 
on-interface power supplies. This is particularly true for lower voltage, 
high current supplies, such as required for many digital integrated circuit 
families. For example, at the +5V used for TTL families of integrated logic 
circuits, even the dissipation of the rectifiers can be a significant k0% to 
20% of total power, because of the inherent 0.7V to 1.0V forward drop across 
silicon rectifiers, and heat sinking may be required at 3 _ 5 Amp currents. 
Use of hot carrier or Schottky junction rectifiers, which have a lower 
forward drop presenting a power loss of only of the total power output, 

have peak inverse voltage ratings that are suitable for lower voltage power 
supplies and may not require heat sinks because of their lower power 
dissipation. 
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At low output voltages, the 2-3 volt drop required across most three -terminal 
adjustable integrated circuit series regulators for proper regulation can 
account for U0%-60% of the total power output, which is lost in the regulator 
and must be dissipated. Regulator heat sinking becomes difficult for even 
1-3 Amp current outputs and impossible for the higher current levels that 
larger three -terminal regulators are able to pass. Because of these 
efficiency and dissipation problems, a more efficient circuit approach has 
evolved, as shown in Figure A-l8. 

The circuit of Figure A-18 uses a driven switching regulator for more 
efficient delivery of low voltage, high current output. This circuit 
regulates on the basis of the conduction angle of the pulsating rectified, 
unfiltered dc from the on-interface Schottky rectifiers. The result is 
efficiencies of 70%-85% with 1 Amp to 5 Amp loads. The duty cycle control is 
uniform over the half sine wave and the instantaneous energy is low at the 
switching transitions, which minimizes waveform distortion and RFI emmision. 
Because the regulator operates on the incoming frequency as a driven circuit, 
it also eliminates the generation of other frequencies that would be a 
problem if an on-interface switching regulator integrated circuit were used. 
The circuit eliminates sum and difference noise frequencies and a host of 
non- repetitive noise problems, while optimizing efficiency. 




CRI CR2 and CR3 are International Rectifier 80SQ10 5A Schottky rectifiers 
'Motorola MCI 403 A or equivalent 2 5V low TC reference source 
National Semiconductor LM 311 or equivalent Comparator 
Li is a Dale rvpe IH5 or equivalent solenoid choke coil 



Figure A-18. On-interface, High Current Switching Power Supply 
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A600+ Baseset Microcode 



APPENDIX D 



A representative listing of the baseset microcode used in the A600+ computer 
is presented in the following pages. This listing may not accurately reflect 
the as -installed configuration of microcode actually contained in ROM. The 
listing is solely intended to serve as an aid to those users attempting to 
develop microprograms . 
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LINE ADDR STATEMENT 



9 ; 

10 NOLIST L 

11 LIST B,E 

12 ; 

1 3 ; *********************^ 

14 ;** ** 

15 ;** A600+ Baseset Microcode ** 

16 ;** ** 

17 ;** "Thunder is good, Thunder is impressive, ## 

18 ;** but it was Lightning that did the work" ** 

19 ;** ** 

20 ;** TDI: ** 

21 ;** - Temporary Disable Interrupt is set to inhibit ** 

22 ;** interrupts at the conclusion of JMP . I , JSB.I, and ** 

23 ;** I/O instructions so that the next instruction ** 

24 ;** will be executed. ** 

25 ;** - The ENCN SETTDI microorder must be given at least ** 

26 ;** one cycle before IFETCH. TDI is automatically ** 

27 ;** cleared one cycle after JTAB INIT (Line 0) and by ** 

28 ;** the ENCN SETMPI microorder. ** 

29 ;** ** 

30 ;** CARRY: ** 

31 ;** - The Cn input to the ALU is XOR'D with I3*/MRG . ** 

32 ;** Thus, the sense of carry is inverted for SUBR , OR, ** 

33 ;** NOTRS and EXNOR, for non-MRG instructions. This ** 

34 ;** means that SUBR should not be used for interrupt ** 

35 ;** routines, as the IR contents are indeterminate. ** 

36 ;** ** 

37 ;** TAB Special : ** 

38 ;** - In A reg field, modifies source operand of DZ to ** 

39 ;** ZA (DA to AB, AQ to DQ) , and selects A operand of ** 

40 ;** macro A or B register depending on YOBUF if macro ** 

41 ;** A or B register was addressed on last DREAD or ** 

42 ;** IFETCH (MRGREAD or MRGFETCH). If the last value ** 

43 ;** loaded into the MAR was not 0 or 1, the source ** 

44 ;** operand field is not modified, and the A operand ** 

45 ;#* is either the macro A or B register depending on ** 

46 ;** IR11. ** 

47 ;** ** 

48 ;** - In B reg field, modifies destination operand of ** 

49 ;** NOP to RAMF and selects a B operand of macro A or ** 

50 ;** B reg depending on YOBUF, when the MAR contains a ** 

51 ;** 0 or 1. Otherwise, the destination operand is *# 

52 ;** unmodified. ## 

53 ;** *** NOTE *** ** 

54 ;** - TAB may not be used as a DESTINATION (B field) ** 
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LINE ADDR STATEMENT 



55 


** 




special in the same line as LDMAR 


** 


56 


** 






** 


57 


** 


BR Special: 


** 


58 


** 




- Chooses Q as the A operand 


** 


59 


** 




- If last memory read was from A or B, changes 


** 


60 


** 




source operand from DZ to ZB 


** 


61 


** 




- If the new address is" base relative (in range 2 to 


** 


62 


** 




1777 octal inclusive), and CSM0DE is ON, freeze 


** 


63 


** 




for one cycle and change DZ to DA (ZB to AB) , 


** 


64 


** 




which has the result of adding the base register. 


** 


65 


** 






** 


66 


** 


TABQ 


spec ial : 


** 


67 


** 




- Selects macro A or B register depending on the 


** 


68 


** 




signal SRCY0BUF (if the last memory reference was 


** 


69 


** 




to A or B) . 


** 


70 


** 






** 


71 


** 




The BR special and the TABQ special work together 


** 


72 


** 




to provide proper addresses (A/B/Base relative) 


** 


73 


** 




during indirect resolution. 


** 


74 


** 






** 


75 


** 


PORM 


s pec ial : 


** 


76 


** 




- Chooses between PC and MP based on the signal 


** 


77 


** 




PCA1 from the IRDEC0DE FPLA. At LINE1, PCA1 is 


** 


78 


** 




asserted (choose MP) for the instructions 


** 


79 


** 




JSB.D JMP.D ISZ.D and ST*,D. 


** 


80 


** 






** 


81 


** 


PORQ 


spec ial : 


** 


82 


** 




- Chooses between PC and Q (base register) based on 


** 


83 


** 




the signal PCA0 from the IRDEC0DE FPLA. At LINE0 , 


** 


84 


** 




PCA0 is asserted (choose Q) for all MRG 


** 


85 


** 




inst ruct ions . 


** 


86 


** 




- If PC is chosen, then change source operand of DZ 


** 


87 


** 




to ZA. If Q is chosen, then change DZ to DA if 


** 


88 


** 




CSM0DE is ON and IR bit 10 is 0 and the reference 


** 


89 


** 




is not to A or B (base relative MRG). 


** 


90 


** 






** 


91 


** 


MPY 


special : 


** 


92 


** 




- Selects a source operand of AB or ZB depending on 


** 


93 


** 




the signal Q0BUF (Q0BUF+ HIGH selects AB) . MPY 


** 


94 


** 




puts the result in register 0 (A register), and 


** 


95 


** 




MPY8 puts the result in register 8 (SO). 


** 


96 


** 






** 


97 


** 


DIV 


special : 


** 


98 


** 




- Changes an ALU function of SUBR to ADD depending 


** 


99 


** 




on the condition code output from the last 


** 


100 


** 




microcycle (normally DIVC0ND = dividend sign X0R 


** 


101 


** 




diviso r s ign ) . 


** 


102 


** 






** 


103 


,** 


SEQFRZ special: 


** 


104 


;** 




- Freezes the ALU and the sequencer (but not the 


** 


105 


;** 




AM2904 status unit) for one cycle. This has the 


** 


106 


;** 




effect that you can set and test a microcode 


** 


107 


;** 




condition in the same line. The SEQFRZ special 


** 


108 


;** 




freezes UCLK- LOW. 


** 
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LINE ADDR STATEMENT 



109 
110 



;** ** 

;****************************************************************^ 



A600+ BASESET MICROCODE 6/15/83 ** [&LBRB1] 
LINE ADDR STATEMENT 
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112 
113 
114 
115 
116 
117 



*************************************** 

** * 
** EQUATES * 

** * 
******************************************************#********** 



BOOT MEM ADDRESS OF IMAP REG (101Q) 
RTE VMA FAULT TRAP CELL 
VMA PAGE TABLE POINTER LOCATION 
BOOT MEMORY ADDRESS OF INTD_Q (102Q) 
RTE SEGMENT FAULT TRAP CELL (13 OCT) 
RTE VMA TRAP CELL FOR CDS ON (12 OCT) 

THUNDER PROCESSOR ID NUMBER 
MICRO CODE REVISION NUMBER 

.EXITO OPCODE 
. EXIT1 OPCODE 
. EXIT2 OPCODE 



118 


IMAPLOC: 


EQU 


H#0041 


119 


VMALOC: 


EQU 


H#0004 


120 


VMA PTE: 


EQU 


H#0002 


121 


IQLOC: 


EQU 


H#0042 


122 


SEGTRAP: 


EQU 


H#OOOB 


123 


VMATRAP : 


EQU 


H#OOOA 


124 








125 


CPUID: 


EQU 


H#0005 


126 


MICREVID: 


EQU 


H#0003 


127 








128 


EXITO : 


EQU 


H#8B0F 


129 


EXIT1 : 


EQU 


H*8B0D 


130 


EXIT2 : 


EQU 


H#8B0E 



131 
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133 






******************************************* 


134 






* 








* 


135 






* 




Basic Instruction Decode 




* 


136 






* 




-r 




* 


137 






* 








* 


138 






* - 


At the FETCH line, PC joints to Next instruction. 


* 


139 






* 








* 


140 






* - 


After 


instruction mapping, MAR points to the next 


* 


141 






* 


instruction, or to the sexond word of multi-word 


* 


142 






* 


instructions, and PC points to the current instruction + 2 


* 


143 






* 








* 


144 






* - 


First 


micro instruction: 




* 


145 






* 




- Wait for instruction fetch to finish 


* 


146 






* 




- Load MAR and scratch reg MP with 


MRG address 


* 


147 






* 




(for MRG instructions) or with PC 


* 


148 






* 




- Start read of MRG address or second word (multi- 


* 


149 






* 




word instruct ions ) 




* 


150 






* 




- Load 2910 register with uaddr of 


instruction routine 


* 


151 






* 








* 


152 






* ■ 


- Second microinstruction: 




* 


153 






* 




- Increments PC 




* 


154 






* 




- IF ISZ, ST*, JMP, or JSB THEN load MAR. with MRG 


* 


155 






* 




address ELSE load MAR with next instruction address 


* 


156 






* 




or current instruction second word address. 


* 


157 






* 




- IF interrupt pending THEN jump to interrupt handler 


* 


158 






* 




ELSE jump to instruction microcode routine. 


* 


159 






* 








* 


160 






***************************************************************** 


161 






***** 








162 








- Wait for instruction to become valid in IR 




163 








- Load MAR and register MP with MRG actual address if 




164 






***** 


MRG, or with PC (=next_inst) if not MRG 




165 








- Put mapped address in 2910 register 




166 








- Do a read if MRG read instruction or multi-word inst 




167 






***** 








168 




FETCH: 


LDCT & AM2901 PORQ , MP , RAMF , ADD , DZ 




169 




/ 




& CARRYL 


no carry for add 




170 




/ 




& JTAB INIT 


Initial instruction decod 


171 




/ 




& LDMAR 


Load MAR 




172 


00000 


/ 




& MWAIT 


Wait for FETCH 




173 
















174 






***** 


- Load MAR with PC or MP, depending on whether you 




175 








are executing a PCA1 type instruction or not 




176 








- Increment PC 






177 








- Jumps to the appropriate microcode routine for the 




178 








instruction being mapped, or INTERRPT if there is 


a 


179 








qualified interrupt pending. 






180 






)|C)|C !|C 3(C l|C 








181 










JRP INTERRPT & AM2901 P0RM , PC , RAMA , ADD , ZB 




182 




/ 




& CARRYH 


Inc PC 




183 




/ 




& CONDEXT INTRPT 


JP if int pend, else JR 


184 




/ 




& LODMSR 


Load YCBUF for ASC0NT 


185 


00001 




/ 




& LDMAR 


Load MAR with PC or MP 
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LINE ADDR STATEMENT 



187 ; *********************************************^^ 

188 ;* * 

189 ;* Memory Reference Group * 

190 ;* --- * 

191 ;* * 

192 ;* - Resolved address is in QREG * 

193 ;* - MAR contains PC-1 (=next_inst) for MRG read * 

194 ;* instructins * 

195 ;* * 

196 ;* MEM is the resolved MRG address. * 

197 ;* * 
19 8 ; ********************************** 

199 ;***** 

200 ;***** - Add (MEM) to A/B. MEM is A/B addressable 

201 ;***** 

202 AD. I: CALL READIND 4 AM2901 BR , TABQ , QREG , ADD , DZ 

203 / & CARRYL ; 

204 / & L0DUSR ; 

205 / & LDMAR ; 

206 00002 / & DREAD ; 

207 AD.: JZ & AM2901 TAB ,CAB , RAMF , ADD ,DA 

208 / & CARRYL ; 

209 / & LODMSR ENVE 

210 / & ENBLC & ENBLO 

211 00003 / & IFETCH ; 

212 ;***** 

213 ;***** - AND (MEM) and A/B. MEM is A/B addressable 

214 ;***** 

215 ANDI: CALL READIND & AM2901 BR , TABQ , QREG , ADD ,DZ 

216 / & CARRYL ; 

217 / & LODUSR ; 

218 / & LDMAR ; 

219 00004 / & DREAD ; 

220 AND.: JZ &AM2901 TAB , A , RAMF , AND , DA 

221 00005 / & IFETCH ; 

222 ;***** 

223 ;***** - Compare A/B with (MEM). MEM is A/B addressable 

224 ;***** - if the two operands are identical, execute the 

225 ;***** next instruction, else skip (do if true). 

226 ;***** 

227 CP. I: CALL READIND & AM2901 BR , TABQ , QREG , ADD , DZ 

228 / 4 CARRYL ; 

229 / & LODUSR ; 

230 / & LDMAR ; 

231 00006 / & DREAD ; 

232 CP.: JP SKIFNZ &AM2901 TAB , CAB , NOP , EXOR , DA 

233 00007 / & LODUSR ; 

234 ;***** 

235 ;***** - OR (MEM) with A/B. MEM is A/B addressable 

236 ;***** 

237 IORI: CALL READIND & AM2901 BR , TABQ , QREG , ADD , DZ 

238 / & CARRYL ; 

239 / & LODUSR ; 
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LINE ADDR STATEMENT 



240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 



00008 
00009 



OOOOA 



OOOOB 



OOOOC 



OOOOD 
OOOOE 

OOOOF 



00010 



00011 



/ 
/ 

IOR : 

/ 

ISZI : 

/ 
/ 
/ 
/ 

ISZ: 

/ 

/ 

/ 

/ 

/ 
/ 
/ 

JMPI : 

I 
/ 
/ 
I 

JPTDI : 

/ 

INCFTCH: 

/ 
/ 

JMP : 
/ 

JSBI : 

/ 

/ 

/ 

/ 



& LDMAR 

& DREAD ; 
JZ & AM2901 TAB , A , RAMF , OR , DA 

& IFETCH ; 

- Increment (MEM) and skip next instruction if the 

res ul t is ze ro . 

- MEM is A/B addressable. 



CCALL READRES 



CONT 



JP 



SKIFZ 



& AM2901 BR , TABQ ,QREG , ADD , DZ 
& CARRYL 
& CONDEXT SIGN 
& LDMAR 
& DREAD 
& AM2901 TAB, TAB, NOP, ADD, DZ 
& CARRYH 
& LODMSR 
& LDMDOR 
& DWRITE 

& AM2901 ,PC,NOP,SUBR,ZB 
& CARRYL 
& LODMSR SWAPUM 
& LDMAR 



LOAD MSR FOR NEXT LINE 



USR 



STATUS FROM PREV. L 



Jump indi rec t . 

Sets TDI so that the jump target instruction is 
always executed after the jump. 



CCALL INDRES 



CONT 
JZ 

- Jump direct 
JZ 



& AM2901 BR , TABQ , QREG , ADD , DZ 
& CARRYL 
& CONDEXT SIGN 
& LDMAR 

& CMSGN & DREAD ; RESOLVE INDIRECTS 
& AM2901 , , NOP.ADD.AQ 

& ENCN SETTDI ; TEMP INTERRUPT DISABLE 
& AM2901 , PC , RAMF , ADD , ZQ 
& CARRYH ; 

& IFETCH ; INC PC AND FETCH NEXT INS 



& AM2901 MP, PC, RAMF, ADD, ZA 
& CARRYH ; INC PC 



JSB indirect 

Sets TDI so that the target of the JSB is always 
executed . 



CCALL INDRES 



CONT 



& AM2901 BR, TABQ, QREG, ADD, DZ 
& CARRYL 
& CONDEXT SIGN 
& LDMAR 

& CMSGN & DREAD 
& AM2901 PC,TAB,NOP,SUBR,ZA 
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LINE ADDR STATEMENT 



294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 



00012 



00013 



00014 
00015 



00016 
00017 



00018 



00019 



0001A 



0001B 
0001C 



/ 
/ 
/ 

JSBIVMA: 

/ 
/ 

***** 
***** 

JSB: 
/ 
/ 
/ 

/ 

LD . I : 

/ 

/ 

/ 

/ 

LD. : 
/ 

ST. I: 

/ 

/ 

/ 

/ 

ST. : 

/ 

/ 



/ 
/ 
/ 

***** 

XORI: 

/ 

/ 

/ 

/ 

XOR : 
/ 



JP SKIP 



& CARRYL 
& LDMDOR 
& DWRITE 

& AM2901 , PC , RAMF 

& CARRYH 

& ENCN SETTDI 



SUBTRACT 1 FROM PC 
ADD , ZQ 

SET PC TO JSB TARGET + 1 



JSB direct 

Since PC points to Next instruction + 1, PC-1 must 
be stored at JSB target. 



CONT 



JP 



SKIP 



& AM2901 PC,TAB,NOP,SUBR,ZA 
& CARRYL 
& LDMDOR 
& DWRITE ; SUBTRACT 1 

& AM2901 MP, PC, RAMF, ADD, ZA 
& CARRYH ; 



Load A/B with (MEM). MEM is A/B addressable 



CALL READIND 



JZ 



& AM2901 BR , TABQ , QREG , ADD , DZ 
& CARRYL 
& LODUSR 
& LDMAR 

& DREAD ^ A 
& AM2901 TAB, CAB, RAMF, PASS, DZ 
& IFETCH 



Store A/B to MEM. MEM is A/B addressable 



CCALL INDRES 


& 


AM2901 BR, TABQ, QREG, ADD, DZ 




& 


CARRYL 






& 


CONDEXT SIGN 






& 


LDMAR 






& 


CMSGN & DREAD 




CONT 


& 


AM2 90 1 CAB , TAB , NOP , PASS , ZA 




& 


LDMDOR 






& 


DWRITE 




JZ 


& 


AM2901 ,PC,NOP,SUBR,ZB 




& 


CARRYL 


PC-1 




& 


LDMAR 






& 


IFETCH 





- Exclusive-OR (MEM) with A/B. MEM is A/B addressable 



CALL READIND 



JZ 



& AM2901 BR, TABQ, QREG, ADD, DZ 
& CARRYL 
& LODUSR 
& LDMAR 
& DREAD 
& AM2901 TAB , A , RAMF , EXOR , DA 
& IFETCH 
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LINE ADDR STATEMENT 



347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 



0001D 



0001E 



0001F 



00020 



00021 



00022 



^ ^ ^ ^ ^ ^ ^ ^ ' Y ™ ♦ * ™ ^ ^ * * ♦ * ^ ^ ^ ^ * ™ * ™ * * * * ™ ^ * * * * * * * * * *^ * *P * ^ *P ^ ^ ^rr< 'T' ^ 



Shift Rotate Group 



The initial instruction decode jumps to the SRGO entry 
points . 

Spec ials : 

SRG1 - Maps bits IR5 and IR3 to control store address 
to decode CLE, SL*, and NOP 

- SRG1 performs the IFETCH 

! ! Depends on CONDEXT IRSKPBUF and LODMSR RESET 
having bits PL12-PL15 the same 

SRG2 - Maps bottom 6 bits of IR to control store address 

- Decodes second Shift/Rotate operation: 
*LS,*RS,R*L,R*R ,*LR ,ER*,EL*,*LF ,EL*D,ER*D 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



************************************** 



SRGO . LF : 
/ 

***** 

SRGO . LR : 
/ 

/ 

***** 

SRGO . LS: 

/ 

/ 

I 



Rotate left 4 
RL4 special puts 



JMAP SRG1 



YBUS rotated left 4 on the DBUS 

AM2901 CAB , CAB , RAMA , PASS , DZ 
SPRD RL4 ; 



Left shift one, 
Algorithm is 



clear sign 

Mask off bits 14 and 
Shift left normal 



15 



CONT & AM2901 , , QREG , EXNOR , DZ 

& I MM H#C000 ; QREG = H#3FFF 

JMAP SRG1 & AM2901 CAB , CAB , SRAML , AND , AQ 

& SHIFT B#0010 ; 

left 

Set sign and left shift 
Left shift again 

Right shift with sign (restore sign) 



Arithmetic shift 
Algorithm is 



CONT 



CONT 



JMAP SRG1 



/ 



& AM2901 , CAB, SRAML, PASS, ZB 

& LODMSR ; 

& SHIFT B#0010 ; 

& AM2901 , CAB, SRAML, PASS, ZB 

& SHIFT B#0010 

& AM2901 , CAB, SRAMR , PASS, ZB 

& SHIFT B#0101 ; 



- Arithmetic right shift 

- Algorithm is : Set sign 

Right shift with sign 
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LINE ADDR STATEMENT 



400 ;***** 

401 SRGO.RS: CONT & AM2901 , CAB , NOP , PASS , ZB 

402 00023 / & LODMSR ; 

403 JMAP SRG1 & AM2901 , CAB , SRAMR , PASS , ZB 

404 00024 / & SHIFT B#0101 ; 

405 ;***** 

406 ;***** - Rotate left with E 

407 ;***** 

408 SRGOEL . : JMAP SRG1 &AM2901 , CAB , SRAML , PASS , ZB 

409 00025 / & SHIFT ROTATEC ; 

410 ;***** 

411 ;***** - Copy sign into E 

412 - Same as rotate left with E, except scratch destination 

413 ;***** 

414 SRGOEL. D: JMAP SRG1 & AM2901 CAB , SO , SRAML , PASS , ZA 

415 00026 / & SHIFT ROTATEC ; 

416 ;***** 

417 ;****# - Rotate right with E 

418 ;***** 

419 SRGOER . : JMAP SRG1 &AM2901 , CAB , SRAMR , PASS , ZB 

420 00027 / 4 SHIFT ROTATEC 

421 ;***** 

422 ;***** - Copy LSB into E 

423 ;***** - Same as rotate right with E, except scratch dest . 

424 ;***** 

425 SRGOER. D: JMAP SRG1 & AM2901 CAB , SO , SRAMR , PASS , ZA 

426 00028 / & SHIFT ROTATEC ; 

427 ;***** 

428 ;***** - NOP in first SRG position 

429 ;***** 

430 SRGONOP: JMAP SRG1 & AM2901 CAB ,, NOP , PASS , ZA 

431 00029 / & SPNOP ; PUT A/B ON YBUS FOR SRG1 

432 ;***«* 

433 ;*«*** - Rotate left 

434 ;«**** 

435 SRGOR.L: JMAP SRG1 & AM2901 , CAB , SRAML , PASS , ZB 

436 0002A / 4 SHIFT ROTATE ; 

437 ;***** 

438 ;***** - Rotate right 

439 ;***** 

440 SRGOR.R: JMAP SRG1 & AM2901 , CAB , SRAMR , PASS , ZB 

441 0002B / & SHIFT ROTATE ; 

442 ;***** 

443 ;***** - Perform SRG CLE/SL* operation 

444 ;***** 

445 SR1CLE: JMAP SRG2 & AM2901 CAB , , NOP , PASS , ZA 

446 / & LODMSR RESET ; PUT A/B ON YBUS (DIAG) 

447 0002C / & ENBLC ; 

448 SR1SL.: CONT &AM2901 , CAB , NOP , PASS , ZB 

449 0002D / & SPNOP ; ; PUT A/B ON YBUS FOR IRSKP 

450 SL.CONT: JMAP SRG2 & AM2901 PC , PC , RAMA , ADD , ZB 

451 / & CARRYEXT ; 

452 / & CONDEXT IRSKBF ; 

453 0002E / & CLD & LDMAR ; 
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LINE ADDR STATEMENT 



454 SR1CLESL: JP SL.CONT 

455 / 

456 0002F / 

457 ;***** 

458 ;***** - Perform sec 

459 ;*«*** 

460 SRG2.LF: JZ 

461 / 

462 00030 / 

463 SRG2.LR: CONT 

464 / 

465 00031 / 

466 JZ 

467 00032 / 

468 SRG2.LS: CONT 

469 / 

470 00033 / 

471 CONT 

472 / 

473 00034 / 

474 JZ 

475 00035 / 

476 SRG2 RS: CONT 

477 / 

478 00036 / 

479 JZ 

480 00037 / 

481 SRG2EL . : JZ 

482 / 

483 00038 / 

484 SRG2EL.D: JZ 

485 / 

486 00039 / 

487 SRG2ER . : JZ 

488 / 

489 0003A / 

490 SRG2ER.D: JZ 

491 / 

492 0003B / 

493 SRG2N0P : JZ 

494 0003C / 

495 SRG2R.L: JZ 

496 / 

497 0003D / 

498 SRG2R.R: JZ 

499 / 

500 0003E / 



& AM2901 , CAB, NOP, PASS, ZB 

& LODMSR RESET ; PUT A/B ON YBUS FOR IRSKP 
& ENBLC 

ond SRG operation 

& AM2901 CAB, CAB, RAMA, PASS, DZ 

& SPRD RL4 ; 

& IFETCH ; 

& AM2901 , ,QREG , EXNOR ,DZ 

& I MM HiCOOO ; 

& IFETCH ; 

& AM2901 CAB , CAB , SRAML , AND , AQ 

& SHIFT B#0010 

& AM2901 , CAB, SRAML, PASS, ZB 

& LODMSR 

& SHIFT B#0010 ; 

& AM2901 ,CAB, SRAML, PASS, ZB 

& SHIFT B#0010 ; 

& IFETCH ; 

& AM2901 , CAB, SR AMR, PASS, ZB 

& SHIFT B#0101 ; 

& AM2901 , CAB, NOP, PASS, ZB 

& LODMSR ; 

& IFETCH ; 

& AM2901 , CAB, SRAMR, PASS, ZB 

& SHIFT B#0101 ; 

& AM2901 , CAB, SRAML, PASS, ZB 

& SHIFT ROTATEC 

& IFETCH ; 

& AM2901 CAB, SO, SRAML, PASS, ZA 

& SHIFT ROTATEC ; 

& IFETCH ; 

& AM2901 , CAB, SRAMR, PASS, ZB 

& SHIFT ROTATEC ; 

& IFETCH ; 

& AM2901 CAB, SO, SRAMR, PASS, ZA 

& SHIFT ROTATEC ; 

& IFETCH 

& AM2901 , , NOP , ADD , AQ 

& IFETCH ; 

& AM2901 , CAB, SRAML, PASS, ZB 

& SHIFT ROTATE ; 

& IFETCH ; 

& AM2901 , CAB, SRAMR, PASS, ZB 

& SHIFT ROTATE ; 

& IFETCH ; 
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502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 



I ^\ ^ ^ JfK ^ ^^^k^K ^^^prf^^^ ^ ^sfs ^ ^^^^S^ J^^fr ^ ^ ^^^^^^^^ ^^^^^ ^^f^. ^ ^ ^^^^ ^^^^^^ ^ ^ J^. ^ ^^^^ ^^^^^ ^ ^n^T 



;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;*• 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 



Alter-Skip Group 



ASG is mapped 4 ways based on CL*/CM*/CC*/NOP 



- Accumulator ops: 



- E-reg ops 



CL* - Clears A/B to 0000H 

CC* - Sets A/B to 0FFFFH 

CM* - Inverts A/B (One's Complement) 

NOP - No A/B register operation 

CLE - Clears E reg 
CCE - Sets E reg 
CME - Inverts E reg 
NOP - Hold E 



The E reg operations are done by the MSR 
in the course of doing the A/B reg ops. 



special FPLA 



i i 



An accumulator NOP combined with an E reg NOP 
maps directly to the ASC0NT line. All other 
combinations map to the appropriate A/B/E 
ope rat ion 1 ine . 

Algo ri t hms : 

CL* - And register with zero with carry-in 

LOW. Cn+4 will be 0 . 
CC* - Subtract register from itself with carry-in 

LOW. Cn+4 will be 0. 
CM* - Subtract register from zero with carry-in 

LOW. Cn+4 will be 0. 

The ASCONT line depends on the codes for LODMSR ENVE 
and C0NDEXT IR2 being identical in bits PL12-PL15 



- Note that PC already points to the target of the skip 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
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LINE ADDR STATEMENT 

543 , Jjc Jjc sfc )(c 

544 ;***** - Clear and complement A/B (set). 

545 ;***** 

546 CC: JP ASCONT & AM2901 CAB , CAB , RAMF , SUBS , AB 

547 / & CARRYL ; 

548 00O3F / & LODMSR ASGSP ; LOAD YCBUF FOR ASCONT 

549 ;*#*** 

550 ;***** - Clear A/B. 

552 CL.: JP ASCONT &AM2901 , CAB , RAMF , AND , ZB 

553 00040 / & LODMSR ASGSP ; LOAD YCBUF FOR ASCONT 

554 ,***** 

555 ;***** - Complement A/B. 

556 ;***** 

557 CM.: JP ASCONT &AM2901 , CAB , RAMF , SUBS , ZB 

558 / & CARRYL ; 

559 00041 / & LODMSR ASGSP ; LOAD YCBUF FOR ASCONT 

560 ;***** 

561 ;***** - No A/B op, but Set E appropriately. 

562 ;**#** 

563 ASGEOP: JP ASCONT & AM2901 , CAB , NOP , ADD , ZB 

564 / & CARRYL ; 

565 00042 / & LODMSR ASGSP ; LOAD YCBUF FOR ASCONT 

566 ;***** 

567 ;***** - Do IN* (Add bit 2 of IR) and set E & 0 appropriately 

568 ;***** - NOPNOP maps here 

569 ;***** 

570 ASCONT: CONT & AM2901 CAB , CAB , RAMA , ADD , ZB 

571 / & CARRYEXT ; IN* FUNCTION 

572 / & CONDEXT ; CONDEXT IS IR2 

573 / & LODMSR ENVE ; ! ! ENVE IS SAME AS CONDEX 

574 00043 / & ENBLC & ENBLO ; AFFECTS OVERFLOW AND EXTE 

575 ;***** 

576 ;***** - Do skip function 

577 ;***** 

578 JZ & AM2901 PC , PC , RAMA , ADD , ZB 

579 / & CARRYEXT ; 

580 / & CONDEXT IRSKBF ; 

581 / & CLD & LDMAR ; 

582 00044 / & IFETCH ; SKIP FUNCTION 
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LINE ADDR STATEMENT 



584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 



00045 



00046 



00047 



00048 



00049 



************************************** 



Input - Output Group 



In the FETCH line, I/O instructions are mapped into 
three groups: Halt, select code >= 200, and < 200. 



Instructions with select 
mapped a second time. 



codes less than 20 are 



All HLT instructions are mapped to same entry point 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



***************************************************************** 

he re 



***** 

HLT: 
/ 

/ 
/ 
/ 

/ 
/ 

HLT1 : 

/ 

/ 



All HLT's map 
Algorithm is : 



CJP GENMPV 



CONT 



CONT 



CVECT INTTBL 



If Memory protect system is on, 

generate a memory protect interrupt 
Refetch instruction 
Wait for interrupt 

When an interrupt occurs, service it 
(hopefully, it is the slave request) 

AM2901 , , NOP , ADD , AQ 
C0NDEXT MPEN ; IS MP ON? 
AM2901 PC,PC,RAMF,SUBR,DA 
CARRYL 
I MM H#0002 
LDMAR 

PC , RAMF 



JP 



HLT1 



AM2901 
CARRYH 
RFETCH 
AM2901 
C0NDEXT 
AM2901 
SPNOP 



REFETCH ADDRESS 
ADD , ZB 



PC -> HLT INST + 1 
,N0P,ADD,AQ 

INTRPT ; (PROBABLY) SLAVE REQUEST 
, NOP , ADD , AQ 

; WAIT FOR IT TO HAPPEN 
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LINE ADDR STATEMENT 

623 ;***** * 

624 ;***** - Select Code >= 20Q I/O Instructions * 

625 - Algorithm is : If memory protect system is on, call * 

626 ;***** GENMPV * 

627 ;***** Refetch instruction * 

628 ;***** Set TDI , I/O handshake control word * 

629 ;***** Call appropriate control word decode * 

630 ;***** routine * 

631 ;***** Fetch next instruction * 

632 ;***** * 

634 ;***«* 

635 IOG6E20: CJP GENMPV & AM2901 PC , , NOP , ADD , AQ 

636 / & CONDEXT ; CONDEXT IS MPEN (=SETTDI) 

637 0004A / & ENCN SETTDI ; GENMPV TURNS OFF TDI 

638 LT20ENT: CONT & AM2901 PC , , NOP , SUBR , DA 

639 / & CARRYL 

640 / & I MM H#0002 

641 0004B / & LDMAR ; LOAD MAR WITH REFETCH ADD 

642 CALL IOHSHAKE & AM2901 ,,N0P,ADD,AQ 

643 0004C / & RFETCH ; GET I/O CONTROL WORD 

644 CALL & AM2901 ,,N0P,ADD,AQ 

645 / & SPETC IRSP ; PUT CW ON IRBUS 

646 0004D / & JTAB CWDCODE ; DECODE I/O CONTROL WORD 

647 FIXMAR: JZ &AM2901 PC , , NOP , SUBR , ZA 

648 / & CARRYH ; 

649 / & LDMAR ; 

650 0004E / & I FETCH ; FETCH NEXT INSTRUCTION 
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LINE ADDR STATEMENT 



653 ;* * 

654 ;* Select Code < 20 I/O Instructions * 

655 ;* * 

656 ;* IOGLT20 - I/O GROUP , SC < 20 ENTRY POINT * 

657 :* * 

658 ;* -Basic Flow is to map instruction a second time and jump * 

659 ;# to routine to perform function. * 

660 ;* * 

661 ;* !! Note : ENCN SETTDI and CONDEXT MPEN must be identical * 

662 ;* in bits PL12-PL15 * 

663 ;* * 

665 ;****« 

666 ;*«*** - Select code < 20Q I/O routines 

667 ;*«*** - Algorithm is : Check if MP system on, and set TDI so 

668 ;***** the next instruction gets executed 

669 ;***** IF MP system off, load QREG with status 

670 and jump to the appropriate routine 

671 ;***** ELSE check if Select code is one. 

672 ;***** IF select code = 1, execute the inst . , 

673 ;***** ELSE generate a mem. prot. violation 

674 ;***** 

675 I0GLT20: LDCT - & AM2901 MP , MP , RAMF , SUBR , ZB 

676 / & CARRYH ; SUBTRACT 1 FROM SELECT CO 

677 / & ENCN SETTDI ; SET TEMP INT DISABLE 

678 0004F / & JTAB LOWSC ; LDCT WITH ROUTINE ADDRESS 

679 JRP MPLOWSC &AM2901 ,, QREG , PASS , DZ 

680 / & CONDEXT ; CONDEXT IS MPEN (=STRD) 

681 00050 / & SPRD STRD ; READ STATUS REG 

682 ; ; MAPS INSTRUCTION IF MP SY 

683 ; ; IF MP SYS ON, CHECK FOR S 
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LINE ADDR STATEMENT 



6 85 ; ***************************************************^ 

686 ;* * 

687 ;* - Select Code 00 I/O Instructions * 

688 ;* (Interrupt system) * 

689 ;* * 

690 ; ************************************** 

691 ;***** 

692 ;***** - CLC 00 - I/O System Reset (CRS-) 

693 ;***** 

694 ;***** - Set STATUS reg as follows: 

695 ;***** 

696 ;*«*** - TBG off 

697 ;***** - Int Inhibit off 

698 ;***** - Glogal Reg Flag disabled 

699 ;***** - Int Sys off 

700 ;***** - PS same 

701 ;***** - P0NI same 

702 ;***** 

703 ;***** - STATUS REGISTER : 

704 ;***** 

705 ;+ + + + + + + + + + 

706 ;|9 |8 |7 |6 |5 |4 |3 |2 |1 |0 

707 ;+ + + + + + + + + + - 

708 ;| PFW+ | TBT+ | GREN+ | ISFF+I PONI+ | TBGEN+ | IIFF+I PS+ | TBG1+I TBG0+ 

709 ;+ + + + + + + + + + 

710 ;***** 

711 ;***** - Status bits 8 4 9 are read only (not updated by LDST) 

712 ;***** 

713 ;***** 

714 CLC00: JZ &AM2901 ,,NOP,AND,DQ 

715 / & LDST ; LOAD STATUS REGISTER 

716 / & ENCN ICRS ; GENERATE CRS ON BACKPLANE 

717 / & IMMB H#24 ; ZERO APPROPRIATE BITS 

718 00051 / & IFETCH ; FETCH NEXT INSTRUCTION 

719 ;***** 

720 ;***** - CLF 00 - Disable Interrupt System 

721 ;***** - Note: CLRFO is used by SFS 00, C and SFC 00, C 

722 ;***** 

723 CLFOO: CONT & AM2901 ,,NOP,ADD,AQ 

724 00052 / & IFETCH ; 

725 CLRFO: JZ &AM2901 , , NOP , NOTRS , DQ 

726 / & LDST ; LOAD STATUS REGISTER 

727 00053 / & IMMB H#40 ; DISABLE TYPE 3 INTERRUPTS 

728 ; 
729 

730 LI.OOC: CONT &AM2901 ,, NOP , NOTRS , DQ 

731 / & LDST ; 

732 00054 / & IMMB H#40 ; CLEAR FLAG 

733 JP LT20ENT & AM2901 PC , , NOP , ADD , AQ 

734 00055 / & SPNOP ; I/O CHIP HANDSHAKES THE R 

735 ;***** 

736 ;***** - OT. 00 - Output to interrupt mask register 

737 ;***** - Writes I MR bit 1, and then outputs A/B for the 
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LINE ADDR STATEMENT 

738 ;***** I/O chips to examine. 

y 3 9 , 3jC3jC*(CJ|£3^C 

740 0T.00C: CONT 4AM2901 , , NOP , NOTRS , DQ 

741 / 4 LOST ; 

742 00056 / 4 IMMB H#40 ; CLEAR FLAG 

743 OT.OO: JP OT.02H 4 AM2901 , CAB , NOP , PASS , ZB 

744 00057 / 4 SPWR LDIM1 , LOAD TBG INTRPT MASK BIT 
7 45 ;***** 

746 ;***** - SFC 00 - Skip if interrupt system disabled 

747 ;***** 

748 SFCOO: CONT 4 AM2901 PC , PC , NOP , AND , DQ 

749 / & LUSRCOND 

750 00058 / 4 IMM H#0040 ; 

751 SKIFZ: JZ 4 AM2901 PC , PC , RAMA , ADD , ZB 

752 / 4 CARRYEXT ; 

753 / 4 CONDUSR Z ; 

754 / 4 CLD 4 LDMAR 

755 00059 / 4 IFETCH ; SKIP IF TYPE 3 INTS DISAB 

756 ; ***** 

757 ;***** - SFC 00, C - Skip if interrupt system disabled and 

758 ;***** disable interrupt system 

759 ;***** 

760 SFCOO. C: CONT 4 AM2901 PC , PC , NOP , AND , DQ 

761 / 4 LUSRCOND ; 

762 0005A / 4 IMM H#0040 ; TEST BIT 

763 JP CLRFO 4 AM2901 PC , PC , RAMA , ADD , ZB 

764 / 4 CARRYEXT ; 

765 / 4 CONDUSR Z ; 

766 / 4 CLD 4 LDMAR ; SKIP IF TYPE 3 INTS DISAB 

767 0005B / 4 IFETCH ; DISABLE TYPE 3 INTERRUPTS 
76 8 ;***** 

769 ;***** - SFS 00 - Skip if interrupt system enabled 

770 ;***** 

771 SFSOO: CONT 4 AM2901 PC , PC , NOP , AND , DQ 

772 / 4 LUSRCOND ; 

773 0005C / 4 IMM H#0040 ; 

774 SKIFNZ: JZ 4 AM2901 PC , PC , RAMA , ADD , ZB 

775 / 4 CARRYEXT 

776 / 4 CONDUSR NZ 

777 / 4 CLD 4 LDMAR ; 

778 O005D / 4 IFETCH ; SKIP IF TYPE 3 INTS ENABL 
7 79 ;***** 

780 ;***** - SFS 00, C - Skip if interrupt system enabled and 

781 ;***** disable interrupt system 

782 ;***** 

783 SFSOO. C: CONT 4AM2901 PC , PC , NOP , AND , DQ 
7 84 / 4 LUSRCOND ; 

785 0005E / 4 IMM H#0040 ; 

786 JP CLRFO 4 AM2901 PC , PC , RAMA , ADD , ZB 

787 / 4 CARRYEXT ; 

788 / 4 CONDUSR NZ ; 

789 / 4 CLD 4 LDMAR ; SKIP IF TYPE 3 INTS ENABL 

790 0005F / 4 IFETCH ; DISABLE TYPE 3 INTERRUPTS 
7 91 ; ***** 
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LINE ADDR STATEMENT 



792 ;***** - STF 00 - Enable Interrupt System 

793 ;***** 

794 STFOO: JZ & AM2901 ,,NOP,OR,DQ 

795 / & LDST ; 

796 / & IMMB H#40 ; 

797 00060 / & IFETCH ; ENABLE TYPE 3 INTERRUPTS 
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799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 



00061 



00062 



00063 

00064 
00065 

00066 
00067 

00068 
00069 

0006A 

0006B 



0006C 



* * 

* Select code 01 I/O instructions * 

* (Overflow reg , LED reg, and switch reg) * 

* * 



CLO: 
/ 

CLRO: 

/ 

/ 

***** 

LI.01C: 

/ 

/ 

LI 

/ 
/ 



01 



01C: 



01 



01C: 



/ 

MI 

/ 
/ 

MI 

/ 

/ 
/ 



/ 

OT. 
/ 
/ 

0T.01: 

/ 

/ 

SOC.C: 

/ 

/ 

/ 

/ 

SOC.H: 

/ 

/ 



CONT 



JZ 



AM2901 
IFETCH 
AM2901 
LODMSR 
ENBLO 



, , NOP , ADD , AQ 
, , NOP , ADD , AQ 

RESET ; CLEAR OVERFLOW 



LI*01 - 
OT*01 - 
The LED 1 



Read the SWITCH register 
Output to LED register 

s on the A600+ are high true, which means that 



a 1 writ ten to a bit in 
corresponding LED *0N*. 



the register will turn the 



CONT 



CONT 



JZ 



CONT 



CONT 



CONT 



JZ 



JP 



JZ 



JP 



JZ 



CLRO 



CLRO 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



, NOP , ADD , AQ 
RESET ; CLEAR 0 

, CAB, RAMF, PASS, DZ 



AM2901 
LODMSR 
ENBLO 
AM2901 
SPRD SWRD ; 

IFETCH ; INPUT FROM SWITCH REGISTE 

AM2901 CAB, CAB, RAMF , AND, DA 
IMM H#FF00 ; 
AM2901 , , NOP , ADD , AQ 
LODMSR RESET ; CLEAR 0 
ENBLO ; 
AM2901 , SO, RAMF, PASS, DZ 
SPRD SWRD ; 
AM2901 SO , SO , RAMF , AND, DA 
IMM H#FF00 ; 
IFETCH ; 
AM2901 SO, CAB, RAMF, OR, AB 
SPNOP 

EXNOR.ZB 



AM2901 , CAB, NOP 
SPWR LEDWR 
IFETCH 

AM2901 , CAB, NOP 
SPWR LEDWR 
IFETCH 



OUTPUT TO 
EXNOR.ZB 



LED REG, CLEAR 



OUTPUT TO LED REGISTER 



& AM2901 PC, PC 

& CARRYEXT 

4 CONDMSR NOVR 

& CLD & LDMAR 

& IFETCH 

& AM2901 PC, PC 

& CARRYEXT 

& CONDMSR NOVR 



RAMA, ADD, ZB 



RAMA , ADD , ZB 



D-20 



A600+ BASESET MICROCODE 6/15/83 ** [&LBRB1] 1:35 PM TUE . , 13 SEPT, 1983 PAGE 21 

LINE ADDR STATEMENT 



852 




/ 








& 


CLD & LDMAR 




853 


0006D 


/ 








& 


IFETCH 


SKIP IF OVERFLOW 


854 




SOS 


C: 


JP 


CLRO 


& 


AM2901 PC, PC, RAMA, ADD, ZB 


855 




/ 








& 


CARRYEXT 




856 




/ 








& 


CONDMSR OVR 




857 




/ 








& 


CLD & LDMAR 




858 


0006E 


/ 








& 


IFETCH 




859 




SOS 


H: 


JZ 




& 


AM2901 PC, PC, RAMA, ADD, ZB 


860 




/ 








& 


CARRYEXT 




861 




/ 








& 


CONDMSR OVR 




862 




/ 








& 


CLD & LDMAR 




863 


0006F 


/ 








& 


IFETCH 


SKIP IF OVERFLOW 


864 




STO 




JZ 




& 


AM2901 ,,NOP,ADD,AQ 


865 




/ 








& 


IFETCH 




866 




/ 








& 


LODMSR SET 


SET OVERFLOW 


867 


00070 


/ 








& 


ENBLO 
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LINE ADDR STATEMENT 



869 
870 
871 
872 
873 
874 
875 
876 
877 



896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 



00076 

00077 
00078 

00079 



********************^ 

* * 

* Select Code 02 I/O Instructions * 

* (Global reg and enable BREAK) * 

* * 
************************************** 

***** - CLF 02 - Enable global register 



878 




CLF02 : 


CONT 


& 


AM2901 PC, 


NOP.SUBR , DA 


879 




/ 




& 


CARRYL 




880 




/ 




& 


I MM H#0002 




881 


00071 


/ 




& 


LDMAR 




882 






CONT 


& 


AM2901 PC, ,NOP,OR,DQ 


883 




/ 




& 


LDST 




884 




/ 




& 


IMMB H*80 




885 


00072 


/ 




& 


RFETCH 


; SET GR 


886 






JZ 


& 


AM2901 PC, 


NOP.SUBR ,ZA 


887 




/ 




& 


CARRYH 




888 




/ 




& 


LDMAR 




889 


00073 


/ 




& 


IFETCH 


; FETCH 


890 














891 




LI .02C: 


CONT 


& 


AM2901 , ,N0P,0R,DQ 


892 




/ 




& 


LDST 




893 


00074 


/ 




& 


IMMB H#80 


; SET GR 


894 






JP LT20ENT 


& 


AM2901 PC, 


NOP, ADD, AQ 


895 


00075 


/ 




& 


SPNOP 





REFETCH 



OT.02C: 

/ 

/ 

OT.02H: 

/ 

/ 

/ 

/ 

/ 
/ 



LI* 02 MAPS TO LT20ENT 



OT* 02 - Output to global register 

OT.02H - Output to global register 
OT.02C - Output to global register and clear flag 
(enable the GR ) 
- Sets GREN+ flag and outputs A/B for the I/O 
chips to examine. 



CONT 



CONT 



CALL IOHSHAKE 



CALL I0HSHAK2 



& AM2901 PC, ,NOP,OR,DQ 
& LDST ; 
& IMMB H#80 ; 
& AM2901 PC, 
& CARRYL 
& I MM H#0002 
& LDMAR 
4 AM2901 
& RFETCH 
& AM2901 
& LDMDOR 
& SPETC IOWR 



, NOP , SUBR , DA 



.NOP, ADD, AQ 
CAB, NOP, PASS, ZB 



PUT A/B ON DBUS FOR I/O 



JZ 



& AM2901 PC, , NOP, SUBR , ZA 
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LINE ADDR STATEMENT 



922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 



0007A 



0007B 



0007C 



0007D 



0007E 



0007F 



00080 



00081 



00082 



00083 
00084 



00085 



/ 
/ 
/ 

SFC02C : 
/ 

/ 
/ 

SFC02 : 

/ 

/ 

/ 
/ 
/ 
/ 

SFS02C: 
/ 

/ 
/ 

SFS02 : 

/ 

/ 

/ 
/ 
I 
/ 

STC02 : 

/ 

/ 

/ 

/ 

STF02: 

/ 

/ 

/ 



& CARRYH 
& LDMAR 
& IFETCH 



- SFC 02 - Skip if global register enabled 

CALL PAT02C &AM2901 ,,NOP,ADD,AQ 

& SPNOP ; 
JP CLF02 & AM2901 PC , PC , RAMF , ADD , ZB 

& CARRYEXT ; 

& CONDUSR NZ ; IN PC IF SKIP 

CONT & AM2901 PC , PC , NOP , AND , DQ 

& LUSRCOND ; 

& I MM Htt0080 ; TEST GLOBAL REG BIT 

JZ & AM2901 PC, PC, RAMA, ADD, ZB 

& CARRYEXT 
& CONDUSR NZ 
& CLD & LDMAR 

& IFETCH ; SKIP IF SET 

- SFS 02 - Skip if global register disabled 
CALL PAT02C 
JP CLF02 



CONT 



JZ 



- STC 02 
CONT 



& AM2901 , , NOP , ADD , AQ 
& SPNOP 

& AM2901 PC, PC, RAMF, ADD, ZB 
& CARRYEXT ; 
& CONDUSR Z ; INC PC IF SKIP 

& AM2901 PC, PC, NOP, AND, DQ 
& LUSRCOND 

& IMM H#0080 ; TEST GLOBAL REG BIT 

& AM2901 PC, PC, RAMA, ADD, ZB 
& CARRYEXT 
& CONDUSR Z 
& CLD & LDMAR 

& IFETCH ; SKIP IF CLEAR 

Enable break feature (NOT like L-SERIES) 

& AM2901 PC, ,NOP,SUBR,DA 
& CARRYL 
& IMM H#0002 
4 LDMAR 



MAR := REFETCH ADDRESS 
JP FIXMAR & AM2901 PC , , NOP ,ADD , AQ 

& RFETCH ; REFETCH THE STC02 ; 

GO FETCH NEXT INSTRUCTION 

- STF 02 - Disable Global register 

- NOTE : Global register enable bit is reverse sense 



CONT 



& AM2901 PC, ,NOP,SUBR,DA 
& CARRYL 
& IMM H#0002 
& LDMAR 



MAR := REFETCH ADDRESS 
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LINE ADDR STATEMENT 



976 






CONT 


& 


AM2901 PC, 


,NOP,NOTRS,DQ 


977 




/ 




& 


LDST 




978 




/ 




&. 


RFETCH 


; REGETCH INSTRUCTION 


979 


00086 


/ 




& 


IMMB H#80 


; CLEAR GLOBAL REG BIT 


980 






JZ 


& 


AM2901 PC, 


,NOP,SUBR,ZA 


981 




/ 




& 


CARRYH 




982 




/ 




& 


LDMAR 




983 


00087 


/ 




& 


IFETCH 


; FETCH NEXT INSTRUCTION 
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985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 



00088 

00089 

0008A 
0008B 

0008C 



0008D 



0008E 



0008F 



00090 



00091 



* * 

* Select Code 04 I/O Instructions * 

* (Type 2 & 3 ints, PFW, and CIR) * 

* * 



CLC04: 

/ 

/ 

/ 

LI .04: 
/ 

MI. 04: 
I 

/ 

OT.04: 

/ 

/ 

SFC04 : 

/ 

/ 

/ 
/ 
/ 
/ 

***** 

SFS04: 

/ 

/ 

/ 
/ 
/ 
/ 

STC04: 

/ 

/ 

/ 



JZ 



& AM2901 
& LOST 
& I MM H#0008 
& IFETCH 



NOP , OR , DQ 



DISABLE TYPE 2 AND 3 INTE 



JZ 

CONT 
JZ 

JZ 



& AM2901 CIR, CAB, RAMF, PASS, DZ 
& IFETCH ; CIR TO A/B 

& AM2901 CIR, SO, RAMF, PASS, DZ 
& IFETCH ; SO = CIR 

& AM2901 SO, CAB, RAMF, OR, AB 
& SPNOP ; MERGE CIR 

& AM2901 CAB, CIR , NOP, AND, DA 
& IMMB H#3F ; 

& IFETCH ; A/B TO CIR (6 BITS ONLY) 



- SFC 04 - Skip if power going down 

- NOTE : Status bit is reverse sense 

CONT & AM2901 PC , PC , NOP , AND , DQ 

& LUSRCOND ; 

& I MM H#0200 ; PFW BIT 

JZ & AM2901 PC, PC, RAMA, ADD, ZB 

& CARRYEXT 

& CONDUSR NZ 

& CLD & LDMAR 

& IFETCH ; SKIP IF SET 

- SFS 04 - Skip if power not going down 

- NOTE : Status bit is reverse sense 



CONT 



JZ 



JZ 



AM2901 PC, PC, NOP, AND, DQ 
LUSRCOND ; 
I MM H#0200 ; PONI BIT 

AM2901 PC, PC, RAMA, ADD, ZB 
CARRYEXT 
CONDUSR Z 
CLD & LDMAR 
IFETCH 



SKIP IF CLEAR 



AM2901 , ,NOP,NOTRS,DQ 
LDST 

IMMB H#08 
IFETCH 



ENABLE TYPE 2 AND 3 INTER 
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1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 



00092 

00093 
00094 

00095 

00096 
00097 
00098 

00099 

0009A 
0009B 
0009C 

0009D 



0009E 



0009F 



* * 

* Select Code 05 I/O Instructions * 

* (Parity system) * 

* * 



CLC05C: 

/ 

/ 

/ 

/ 

CLC05 : 

/ 

/ 

CLF05 : 
/ 

CLRF5 : 

/ 

/ 

LI 

/ 
/ 



JZ 



05H: 



000A0 



/ 

LI.05C: 
/ 

/ 
/ 

/ 
/ 

/ 

LI05A: 
/ 

SFC05C: 

/ 

/ 

/ 
/ 
/ 
/ 

SFC05 : 

/ 

/ 

/ 
/ 
/ 
/ 

SFS05C : 



JZ 



CONT 



JZ 



CONT 



JZ 



CONT 



CONT 



CJP 



JZ 



JZ 



CONT 



JP 



CONT 



JZ 



LI05A 



CLRF5 



CONT 



& 
4 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



DISABLE PARITY, SET ODD 



; DISABLE PARITY SYSTEM 
, NOP, ADD, AQ 

; FETCH NEXT INST 
,NOP,NOTRS,DQ 



AM2901 , ,NOP,NOTRS,DQ 
LDST 

ENCN CLRPSFF 
IMMB H#04 
IFETCH 

AM2901 , , NOP , ADD , AQ 
ENCN CLRPSFF ; 
IFETCH 
AM2901 
IFETCH 
AM2901 
LDST ; 

IMMB H#04 ; SET ODD PARITY SENSE 

AM2901 , CAB, RAMF, PASS, DZ 
SPRD PELENL ; 

IFETCH ; LOAD PARITY LOW ORDER REG 

AM2901 CAB , CAB , RAMF , EXOR , DA 
IMM H#FC00 ; INVERT HIGH 6 BITS 

AM2901 , CAB, RAMF, PASS, DZ 

SPRD PELENH ; LOAD PARITY HIGH ORDER RE 
AM2901 CAB, , NOP, AND, DA 
IMM H#FF00 ; MASK OFF LOW BYTE 

LUSRCOND ; 
AM2901 , , NOP , ADD , AQ 
CONDUSR NZ ; 
IFETCH ; 
AM2901 CAB , CAB , RAMF , EXNOR , DA 
IMM H#FF00 ; INVERT LOW BYTE ONLY 

AM2901 CAB, CAB, RAMF, EXNOR, DA 
IMM H#C000 ; INVERT ALL BUT TOP TWO BI 

AM2901 PC, PC, NOP, AND, DQ 
LUSRCOND ; 
IMM H#0004 ; 
AM2901 PC,PC ; 
CARRYEXT 
CONDUSR Z 
CLD & LDMAR 
IFETCH 

AM2901 PC,PC 1 
LUSRCOND 
IMM H#0004 
AM2901 PC, PC, 
CARRYEXT 
CONDUSR Z 
CLD & LDMAR 

IFETCH ; SKIP IF CLEAR 

AM2901 PC, PC, NOP, AND, DQ 



RAMA, ADD, ZB 



NOP, AND, DQ 



; SKIP 
RAMA, ADD, 



IF 
ZB 



PS ODD 
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1089 




/ 




& 


LUSRCOND ; 


1090 


00OA1 


/ 




& 


IMM H#0004 ; 


1091 






JP CLRF5 


& 


AM2901 PC, PC, RAMA, ADD, ZB 


1092 




/ 




& 


CARRYEXT ; 


1093 




/ 




& 


CONDUSR NZ 


1094 




/ 




& 


CLD & LDMAR 


1095 


000A2 


/ 




& 


IFETCH ; 


1096 




SFS05 : 


CONT 


& 


AM2901 PC, PC, NOP, AND, DQ 


1097 




/ 




& 


LUSRCOND ; 


1098 


000A3 


/ 




& 


IMM H#0004 ; SKIP IF PS EVEN 


1099 






JZ 


& 


AM2901 PC, PC, RAMA, ADD, ZB 


1100 




/ 




& 


CARRYEXT ; 


1101 




/ 




& 


CONDUSR NZ ; 


1102 




/ 




& 


CLD & LDMAR ; 


1103 


000A4 


/ 




& 


IFETCH ; SKIP IF SET 


1104 




STC05C : 


JZ 


& 


AM2901 , ,NOP,NOTRS,DQ 


1105 




/ 




& 


LDST ; 


1106 




/ 




& 


ENCN SETPSFF ; 


1107 




/ 




& 


IMMB H«04 


1108 


000A5 


/ 




&. 


IFETCH ; ENABLE PARITY, SET ODD 


1109 




STC05 : 


JZ 


& 


AM2901 ,,NOP,ADD,AQ 


1110 




/ 




& 


ENCN SETPSFF 


1111 


000A6 


/ 




& 


IFETCH ; ENABLE PARITY SYSTEM 


1112 




STF05 : 


JZ 


& 


AM2901 ,,NOP,OR,DQ 


1113 




/ 




& 


LDST ; 


1114 




/ 




& 


IMMB H#04 ; 


1115 


000A7 


/ 




& 


IFETCH ; SET EVEN PARITY SENSE 
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1117 








1118 






;* 






* 


1119 






;* 


Select Code 06 I/O 


Inst ruct ions * 


1120 






;* 


(TBG) 




* 


1121 






;* 






* 


1122 






;***************************************************************** 


1123 














1124 








- CLC 06 


- Turn 


off TBG (same as CLC 06, C) 


1125 








- CLC 06, C 


- Turn 


off TBG and clear flag 


1126 






***** 








1127 




CLC06 : 


JZ 


& 


AM2901 , ,NOP,NOTRS,DQ 


1128 




/ 




& 


ENCN CLRTBT ; 


1129 




/ 




& 


IMMB H#10 ; 


1130 




/ 




& 


LDST ; CLEAR TBG ENABLE BIT 


1131 


000A8 


/ 




& 


IFETCH ; AND TBG TICK FLAG 


1132 














1133 








- CLF 06 - 


Clear flag on TBG 


1134 














1135 




CLF06 : 


CONT 


& 


AM2901 , , NOP , ADD , AQ 


1136 


000A9 


/ 




& 


IFETCH ; FETCH NEXT INST 


1137 




CLRF6 : 


JZ 


& 


AM2901 , , NOP , ADD , AQ 


1138 


OOOAA 


/ 




& 


ENCN CLRTBT ; CLEAR TBG TIC FLAG 


1139 














1140 








- LI* 06 - 


Read TBG frequency register 


1141 














1142 




LI .06C: 


CONT 


& 


AM2901 , , NOP , ADD , AQ 


1143 


OOOAB 


/ 




& 


ENCN CLRTBT ; CLEAR TIC 


1144 




LI .06 : 


CONT 


& 


AM2901 , SO , RAMF , SUBS , ZQ 


1145 




/ 




& 


CARRYH ; 


1146 


OOOAC 


/ 




& 


IFETCH ; SO = PROPER BITS; FETCH 


1147 








JZ 


& 


AM2901 SO, CAB, RAMF, AND, DA 


1148 


OOOAD 


/ 




& 


I MM H#0003 ; MASK TO 2 BITS 


1149 














1150 








- OT* 06 - 


Write TBG frequency register 


1151 














1152 




OT .06C: 


CONT 


& 


AM2901 , , NOP ,ADD ,AQ 


1153 


OOOAE 


/ 




& 


ENCN CLRTBT ; CLEAR TIC 


1154 




OT.06: 


CONT 


& 


AM2901 CAB, SO, RAMF, SUBS, ZA 


1155 


OOOAF 


/ 




& 


CARRYH ; SO = PROPER BITS 


1156 








CONT 


& 


AM2901 SO, SO, RAMF, AND, DA 


1157 


OOOBO 


/ 




& 


I MM H#0003 ; MASK TO TWO BITS 


1158 








CONT 


& 


AM2901 , ,QREG , NOTRS ,DQ 


1159 




/ 




& 


IMM H#0003 ; 


1160 


000B1 


/ 




& 


IFETCH ; CLEAR TWO BITS IN Q, FE 


1161 








JZ 


& 


AM2901 SO, ,NOP,OR,AQ 


1162 


000B2 


/ 






& 


LDST ; OR IN TWO NEW BITS 


1163 














1164 








- SFC 06 - 


Skip if 


TBG flag clear 


1165 














1166 




SFC06C: 


CONT 


& 


AM2901 PC, PC, NOP, AND, DQ 


1167 




/ 






& 


LUSRCOND ; 


1168 


000B3 


/ 






& 


IMM H#0100 ; TBG BIT 


1169 








JP CLRF6 


& 


AM2901 PC, PC, RAMA, ADD, ZB 
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1170 




/ 








& 


CARRYEXT 






1171 




/ 








& 


CONDUSR Z 






1172 




/ 








& 


CLD & LDMAR 






1173 


000B4 


/ 








& 


IFETCH 


SKIP IF 


CLEAR 


1174 






















1175 




SFC06 : 


CONT 






& 


AM2901 PC, PC, NOP, AND, DQ 




1176 




/ 








& 


LUSRCOND 






1177 


000B5 


/ 








& 


IMM HUOIOO 


TBG BIT 




1178 








JZ 






& 


AM2901 PC, PC, RAMA, ADD, ZB 




1179 




/ 








& 


CARRYEXT 






1180 




/ 








& 


CONDUSR Z 






1181 




/ 








& 


CLD & LDMAR 






1182 


000B6 


/ 








& 


IFETCH 


SKIP IF 


CLEAR 


1183 






















1184 








- SFS 


06 - 


Skip 


if 


TBG flag set 






1185 






















1186 




SFS06C: 


CONT 






& 


AM2901 PC, PC, NOP, AND, DQ 




1187 




/ 








& 


LUSRCOND 






1188 


000B7 


/ 








& 


IMM H#0100 


TEST TBG BIT 


1189 








JP 


CLRF6 




& 


AM2901 PC, PC, RAMA, ADD, ZB 




1190 




/ 








& 


CARRYEXT 






1191 




/ 








& 


CONDUSR NZ 






1192 




/ 








& 


CLD & LDMAR 






1193 


000B8 


/ 








& 


IFETCH 


SKIP IF 


SET 


1194 






















1195 




SFS06 : 


CONT 






& 


AM2901 PC, PC, NOP, AND, DQ 




1196 




/ 








& 


LUSRCOND 






1197 


000B9 


/ 








& 


IMM H#0100 


TBG BIT 




1198 








JZ 






& 


AM2901 PC, PC, RAMA, ADD, ZB 




1199 




/ 








& 


CARRYEXT 






1200 




/ 








& 


CONDUSR NZ 






1201 




/ 








& 


CLD & LDMAR 






1202 


OOOBA 


/ 








& 


IFETCH 


SKIP IF 


SET 


1203 






***** 
















1204 








- STC 


06 - 


Turn 


on 


TBG 






1205 






















1206 




STC06C : 


JZ 






& 


AM2901 ,,NOP,OR,DQ 




1207 




/ 








& 


LDST 






1208 




/ 








& 


ENCN CLRTBT 






1209 




/ 








& 


IMMB H#10 






1210 


OOOBB 


/ 








& 


IFETCH 


SET TBG 


ENABLE, CLEAR 


1211 




STC06 : 


JZ 






& 


AM2901 ,,NOP,OR 


DQ 




1212 




/ 








& 


LDST 






1213 




/ 








& 


IMMB H#10 






1214 


OOOBC 


/ 








& 


IFETCH 


SET TBG 


ENABLE 


1215 






















1216 








- STF 


06 - 


Set 


flag on TBG 






1217 






















1218 




STF06: 


JZ 






& 


AM2901 ,,NOP,ADD,AQ 




1219 




/ 








& 


ENCN SETTBT 






1220 


OOOBD 


/ 








& 


IFETCH 


SET TBG 


TICK FLAG 



D-29 



A600+ BASESET MICROCODE 6/15/83 ** [&LBRB1] 1:35 PM TUE . , 13 SEPT, 1983 PAGE 30 
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1223 ;* * 

1224 ;* Select Code 07 I/O Instructions * 

1225 ;* (Memory protect) * 

1226 ;* * 

1228 ;***** 

1229 ;***** - LI. 07 - Input from Mem Prot Violation Reg 

1230 ;***** 

1231 LI. 07: JZ &AM2901 , CAB , RAMF , PASS , DZ 

1232 / & SPRD PRLEN ; 

1233 000BE / & IFETCH ; LOAD FROM VIOLATION REG 

1234 ;***** 

1235 ;***** - STC 07 - Turn on Memory Protect 

1236 ;***** 

1237 STC07: JZ &AM2901 ,, NOP , PASS , DZ 

1238 / & ENCN SETMPEN ; 

1239 000BF / & IFETCH ; TURN ON MEMORY PROT. 
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1241 








1242 






* 




* 


1243 






* 


Extended Arithmetic Register Group * 


1244 






* 




--- * 


1245 






* 




* 


1246 








1247 






***** 






1248 






***** 


- Arithmetic shift 


left 


1249 






***** 






1250 






***** 






1251 






***** 


- Arithmetic shift 


left 


1252 






***** 


- Algorithm is : 


Clear 0 


1253 






***** 


Swap E 4 0 


1254 








Set QREG := A 


1255 








2910 := shift count from IR 


1256 










1: Double shift B and QREG 


1257 










Check for sign change, loop to 1: 


1258 








Restore sign 


1259 










A := QREG 


1260 








Swap E & 0 back 


1261 












1262 










If shifting caused a sign change, E 


1263 










is set , which becomes an overflow 


1264 










when E and 0 are swapped. 


1265 












1266 




ASL: 


CONT 4 


AM2901 , A, QREG, PASS, ZB 


1267 




/ 


4 


LODMSR RESET ; 


1268 


OOOCO 


/ 


& 


ENBLO ; RESET OVERFLOW 


1269 








PUSH 4 


AM2901 ,B,SRAMQL,PASS,ZB 


1270 




/ 


4 


LODMSR SWAPEO ; 


1271 




/ 


& 


ENBLC 4 ENBLO ; SET MSR SGN = B 


1272 




/ 


& 


JTAB IR0T3 ; LOAD 2910 COUNTER 


1273 


000C1 


/ 


4 


SHIFT B#0110 ; 


1274 








CCALL ASLOVFL 4 


AM2901 , B, NOP, PASS, ZB 


1275 


000C2 


/ 


& 


DIVCOND ; IF SIGN EXOR MN NO MATCH 


1276 








RFCT & 


AM2901 , B , SRAMQL , PASS , ZB 


1277 


000C3 


/ 


& 


SHIFT B#0110 ; 


1278 








CONT & 


AM2901 ,B,SRAMQR,PASS,ZB 


1279 




/ 


& 


SHIFT B#0101 ; RESTORE SIGN 


1280 


000C4 


/ 


& 


IFETCH ; FETCH NEXT INSTRUCTION 


1281 








JZ & 


AM2901 , A , RAMF , PASS , ZQ 


1282 




/ 


& 


LODMSR SWAPEO ; FINISH UP 


1283 


000C5 


/ 


& 


ENBLC 4 ENBLO ; PUT A REG, E REG BACK 


1284 


000C6 






FILLER 




1285 


000C7 






FILLER 




1286 












1287 








- Jump and load A/B 


1288 












1289 




JL. : 


CCALL INDRES1 & 


AM2901 BR , TABQ , QREG , ADD , DZ 


1290 




/ 


& 


CARRYL ; 


1291 




/ 


& 


CONDEXT MDIR15 ; 


1292 




/ 


& 


LDMAR ; 


1293 


000C8 


/ 


4 


CMGO 4 DREAD ; RESOLVE INDIRECT 
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1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 



000C9 



OOOCA 



OOOCB 



OOOCC 
OOOCD 

OOOCE 
OOOCF 
OOODO 
000D1 



000D2 



000D3 



/ 

RRL: 

/ 
/ 
/ 

/ 
/ 

RRR : 
/ 



/ 

/ 
/ 

/ 

/ 

/ 

ASR : 
/ 



JP INCFTCH & AM2901 PC , CAB , RAMF , PASS , ZA 

4 SPNOP ; LOAD A/B WITH OLD PC & FE 

- Rotate left 

- Algorithm is : QREG := A 

Load 2910 counter with shift count 
from IR 

1: Double rotate B and QREG, loop to 1: 
A := QREG 



PUSH 



TWB 



JZA 



Rotate Right 
Algorithm is 



CONT 
CONT 
PUSH 

TWB JZA 

CONT 

JZ 



& AM2901 , A, QREG, PASS, ZB 

& LODMSR RESET ; 

& JTAB IR0T3 

& IFETCH ; 

& AM2901 ,B,SRAMQL,PASS,ZB 

& CONDMSR SGN ; NEVER FALL THROUGH 

& SHIFT B#llll ; 



QREG := A 

Load 2910 counter with shift count 
from IR 

: Double rotate B and QREG, loop to 1: 
A := QREG 

& AM2901 , SO, RAMF, PASS, DZ 
& I MM H#000F ; SO = MASK 

4 AM2901 SO , , NOP, AND, DA 
& LODMSR ; MSR = SHIFT COUNT 

& AM2901 , A, QREG, PASS, ZB 
& JTAB IR0T3 ; 
& IFETCH ; 
& AM2901 ,B,SRAMQR,PASS,ZB 
& CONDMSR Z ; SHIFT IS B#llll 

& AM2901 B,A,SRAMQL,PASS,ZA 
& SHIFT B#llll ; SWAP A & 
& AM2901 , B, RAMF .PASS, ZQ 
& SPNOP ; 



B 



Arithmetic shift right 



- Algorithm is 



CONT 
PUSH 

RFCT 



Load MSR with sign 
Load QREG with A 

Load 2910 counter with shift count 
from IR 

: Double shift B and QREG, loop to 1: 
A := QREG 
Clear 0 

& AM2901 ,B, NOP, PASS, ZB 

& LODMSR ; SET SIGN 

& AM2901 , A, QREG, PASS, ZB 

& JTAB IR0T3 ; 

& IFETCH ; 

& AM2901 ,B,SRAMQR,PASS,ZB 
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1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 



000D4 



000D5 



O0OD6 
000D7 
000D8 



000D9 
OOODA 
OOODB 



/ 

/ 
/ 

***** 

***** 
***** 

LSL: 

/ 

/ 



/ 
/ 

***** 

LSR : 

/ 

/ 



JZ 



& SHIFT B#0101 

& AM2901 ,A,RAMF,PASS,ZQ 

& LODMSR RESET ; RESTORE A 

& ENBLO ; CLEAR OVERFLOW 



Logical shift left 
Algorithm is 



PUSH 

RFCT 
JZ 



QREG := A 
2910 counter loaded with shift count 
from IR 

: Double shift B and QREG, loop to 1; 
A := QREG 

& AM2901 , A, QREG, PASS, ZB 

& JTAB IR0T3 ; 

& IFETCH ; 

& AM2901 ,B,SRAMQL,PASS,ZB 

& SHIFT B#0110 ; 

& AM2901 , A , RAMF , PASS , ZQ 

& SPNOP ; RESTORE A 



Logical shift right 



- Algorithm is 



QREG := A 

Load 2910 counter with shift count 

from IR 
Double shift 
A := QREG 



B and QREG, loop to 1: 



PUSH 

RFCT 
JZ 



& AM2901 , A, QREG, PASS, ZB 

& JTAB IR0T3 ; 

& IFETCH ; 

& AM2901 ,B,SRAMQR,PASS,ZB 

& SHIFT B#0110 ; 

& AM2901 , A , RAMF , PASS , ZQ 

& SPNOP ; RESTORE A 
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1383 






***************************************** 


1384 






* 


* 


1385 






* 


Extended Arithmetic Group * 


1386 






* 


- * 


1387 






* 


* 


1388 






* 


opcode word * 


1389 






* 


D/I | addr word * 


1390 






* 


* 


1391 






***************************************************************** 


1392 










1393 








1394 






* 


* 


1395 






* 


DIVIDE - 1ST AND 2ND QUADRANT SIGNED DIVISOR * 


1396 






* 


* 


1397 






* 


■ Dividend is in macro B and A registers * 


1398 






* 


- Dividend is made positive * 


1399 






* 


■ Divisor is a two's complement signed integer * 


1400 






* 


* 


1401 






* 


• At each iteration step, the partial remainder is * 


1402 






* 


reduced toward zero by add or subtract : If partial * 


1403 






* 


remainder sign XOR divisor sign = 0 then SUBR , ELSE ADD * 


1404 






* 


* 


1405 






* 


- Remainder sign is always same as dividend sign * 


1406 






* 


• Quotient sign is dividend sign XOR divisor sign * 


1407 






* 


* 


1408 






* 


• Overflow if divide by zero leaves ABS ( dividend ) in B&A * 


1409 






* 


- Overflow if divisor too small leaves B&A undefined * 


1410 






* 


• Quotient bits are generated in one's complement form * 


1411 






* 


* 


1412 






3jC3^C3jCj^CijC30C 3|C>jC3|C3^C?|C?|CJjC JjC JjCJ^CJfC JjC J^C J^C- JjC J^C ^tf^ -^t^ 3^C3jC3|^SjC3|C3jC3jC3|C3|C3)C 


1413 










1414 








- Get divisor 


1415 










1416 




DIVD: 


CCALL READRES & AM2901 BR , TABQ.QREG ,ADD ,DZ 


1417 




/ 


4 CARRYL ; 


1418 




/ 


& CONDEXT MDIR15 ; 


1419 




/ 


& LDMAR ; 


1420 


OOODC 


/ 


& DREAD ; RESOLVE DEF 


1421 










1422 








- Save sign of dividend in SI 


1423 










1424 








JP DIVCONT & AM2901 B , SI , RAMF , PASS , ZA 


1425 


OOODD 


/ 


& LODUSR ; GO TO DIVIDE ROUTINE 
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1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 



OOODE 



OOODF 



OOOEO 



000E1 



000E2 



000E3 



000E4 



***** - Double load A and B from MEM and MEM+1 * 



DLD: 

/ 

/ 

/ 

/ 

/ 
/ 

/ 

/ 



CCALL READRES 



READ FIRST WORD 



CONT 

CALL FIXPC 
JZ 



4 AM2901 BR , TABQ , QREG , ADD , DZ 
4 CARRYL 
4 CONDEXT MDIR15 
& LDMAR 
& DREAD 
4 AM2901 , , QREG, ADD, ZQ 
4 CARRYH ; 

& LDMAR ; MAR = SECOND WORD 

4 AM2901 TAB , A , RAMF , PASS ,DZ 

4 DREAD ; LOAD A WITH FIRST WORD 

4 AM2901 TAB, B, RAMF , PASS, DZ 

4 IFETCH ; LOAD B WITH SECOND WORD, 



***** - Double store A & B to MEM and MEM+1 * 
***** * 



DST: 

/ 

/ 

/ 

/ 

/ 
/ 

/ 
/ 



CCALL INDRES 



CALL INCQ 



JP 



SKIP 



4 AM2901 BR, TABQ, QREG, ADD, DZ 
4 CARRYL 
4 CONDEXT MDIR15 
4 LDMAR 

4 CMGO 4 DREAD ; IF INDIRECT 

4 AM2901 A, TAB, NOP, PASS, ZA 

4 LDMDOR ; 

4 DWRITE ; STORE A 

4 AM2901 B, TAB, NOP, PASS, ZA 

4 LDMDOR ; 

4 DWRITE ; STORE B 
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1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 



000E5 



OO0E6 



000E7 



000E8 



000E9 



OOOEA 



OOOEB 



* MULTIPLY - 2'S COMPLEMENT SIGNED * 

* * 

CCALL READRES A AM2901 BR , TABQ , QREG , ADD , DZ 
& CARRYL 
& CONDEXT MDIR15 
& LDMAR 
& DREAD 

CONT & AM2901 PC , PC , RAMA , ADD , ZB 

& CARRYH ; 

& LDMAR ; MAR = NEXT INST, INC PC 

CONT 4 AM2901 TAB , ,QREG , PASS ,DZ 

& SPNOP ; MULTIPLIER TO QREG 



MPYO 
/ 
/ 
/ 
/ 

/ 
/ 

/ 



***** 



/ 
/ 

/ 
/ 

/ 
/ 
/ 

/ 
/ 



FETCH ADDR WORD 



- Zero B Reg and shift Q right one bit. This 

puts QO into QOBUF flip-flop for multiply step. 

Notes: - In next line, CARRYL is used to force a zero 
into sign of B Reg during shift. 

!! Shift opcode is same as value loaded into counter !! 



PUSH H#00E 



RFCT 



CONT 



JZ 



& AM2901 , B , SRAMQR , AND , ZB 
& CARRYL ; 

& SHIFT B#1110 ; B:=0; QOBUF : =Q0 ; COUNTER 
& AM2901 MPY, B, SRAMQR , ADD, AB 
& CARRYL ; 
& SHIFT B#1110 MULTIPLY STEP 

& AM2901 MPY, B, SRAMQR ,SUBR ,AB 
& CARRYL 
& SHIFT B#1110 
& IFETCH 

& AM2901 ,A,RAMF,PASS,ZQ 
& LODMSR RESET ; A = Q 
& ENBLO ; 
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1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 



OOOEC 



OOOED 



OOOEE 



OOOEF 



* * 

* ODDS AND ENDS * 

* * 



INCQ: 

/ 

/ 

FIXPC: 

/ 

/ 

PAT02C : 

/ 

/ 

/ 

/ 
/ 



RET 



RET 



CONT 



RET 



& AM2901 , , QREG , ADD , ZQ 

& CARRYH ; INC Q AND LOAD MAR 

& LDMAR ; WITH NEXT SEQUENTIAL ADDR 

& AM2901 PC, PC, RAMA, ADD, ZB 

& CARRYH ; INC PC AND LOAD MAR 

& LDMAR ; WITH OLD PC FOR FETCH 

& AM2901 PC,PC,NOP,SUBR,DA 
& CARRYL 
& I MM H#0002 
& LDMAR 

& AM2901 , PC , NOP , AND , DQ 
& LUSRCOND ; 
& IMM H#0080 ; TEST GR BIT 



LOAD MAR WITH RFETCH ADDR 
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1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 



OOOFO 
OOOFO 



OOOFO 

000F1 
000F2 
000F3 
000F4 
000F5 
000F6 
000F7 



* Interrupt Vector Table * 

* * 

5|C J)C3jC JjC^jC3jC3jC3^C3|C J^C JjCJjCS^CJjC J^C3^C3jC3jC3|C 3|c "^^^ ^fr^ -^t^- ^t^- ^tf^ 

ALIGN H#10 

INTTBL: EQU $ 

JP INTPON & AM2901 B , B , RAMF , EXNOR , AB 

/ & LODMSR RESET ; 0 - POWER ON 

/ & ENBLC ; 

JP INTFTCH & AM2901 , PC , NOP , PASS , ZB 

/ & LDMAR ; 

/ & DREAD ; SET SRCABREF FOR TAB 

JP INTPARTY & AM2901 ,,NOP,ADD,AQ 

/ & ENCN CLRPEI ; 2 - PARITY ERROR 

JP INTPROT & AM2901 ,,NOP,ADD,AQ 

/ & ENCN CLRMPI ; 3 - MEMORY PROTECT 

JP INTSLRQ & AM2901 ,,NOP,ADD,AQ 

/ & SPETC SLACK ; 4 - SLAVE REQUEST 

JP INTPFW & AM2901 ,,NOP,ADD,AQ 

/ & ENCN CLRPFWI ; 5 - POWER FAIL 

JP INTTBG & AM2901 ,,NOP,ADD,AQ 

/ & ENCN CLRTBT ; 6 - TBG 

JP INTIO & AM2901 ,,NOP,ADD,AQ 

/ & SPNOP ; 7 - I/O INTERRUPT 
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1552 


OOOFF 






ORG H#OFF 


1553 


OOOFF 




************************************** 


1554 


OOOFF 




* 


* 


1555 


OOOFF 




* 


Unimplement ed Instruction Entry * 


1556 


OOOFF 




* 


* 


1557 


OOOFF 




* Note 


Placing entry point at H#FF allows unimplemented * 


1558 


OOOFF 




* 


instructions to map here since blank PROM (7649) * 


1559 


OOOFF 




* 


is all ones . * 


1560 


OOOFF 




* 


* 


1561 


OOOFF 




***************************************************************** 


1562 


OOOFF 




***** 




1563 


OOOFF 








1564 


OOOFF 






- UIT 


1565 


OOOFF 






- Algorithm is : Turn off MGOKILLER 


1566 


OOOFF 






Set up maps for interrupt handling 


1567 


OOOFF 






Load CIR and MAR with 8 (trap cell), 


1568 


OOOFF 




***** 


FETCH 


1569 


OOOFF 






Set TDI so target of trap cell gets 


1570 


OOOFF 






fetched (done in SETMAPS) 


1571 


OOOFF 






Turn MGOKILR back on 


1572 


OOOFF 




***** 


JZ to decode trap cell instruction 


1573 


OOOFF 








1574 




UIT: 


CALL SETMAPS &AM2901 ,,NOP,ADD,AQ 


1575 


OOOFF 


/ 


& SPETC MKLROFF ; 


1576 








CONT & AM2901 , CIR , RAMF , PASS , DZ 


1577 




/ 


& I MM H#0008 ; TRAP CELL 8 


1578 




/ 


& LDMAR ; LOAD CIR 


1579 


00100 


/ 


& IFETCH ; FETCH FROM TRAP CELL 


1580 








JZ & AM2901 ,PC,RAMF,SUBR,ZB 


1581 




/ 


& CARRYH 


1582 


00101 


/ 


& SPETC MKLRON ; PC POINTS TO UIT + 1 
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1584 






****************************************** 


1585 






* 




* 


1586 






* 


Interrupt Handler * 


1587 






* 




* 


1588 






* - Since PC points to next instruction + 1, back up PC * 


15 89 






* 




* 


1590 






***************************************************************** 


1591 












1592 








- All interrupts 


come here, except for UIT, which maps 


1593 








di rec t ly to 


EAGUIT at H#0FF 


1594 








- Algorithm is : 


Subtract 2 from PC 


1595 










Turn off MG0KILLER 


1596 










Vector to the appropriate interrupt 


1597 










rout ine 


1598 












1599 




INTERRPT : 


CONT 


& AM2901 ,S0,RAMF,EXN0R,DZ 


1600 


00102 


/ 




& IMM H#0001 ; SO = -2 


1601 








VECT INTTBL 


& AM2901 SO , PC , RAMF , ADD , AB 


1602 




/ 




& CARRYL ; 


1603 


00103 


/ 




& SPETC MKLROFF ; PC = PC - 2 
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LINE ADDR STATEMENT 



1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 



00104 



00105 



************************************************** 



MPLOWSC - If the select code was one, jump to routine 
and perform select code 1 operation, 
else generate a memory protect violation. 



* 
* 
* 
* 
* 



^^^^^^•J^^^t^ ^^^^^^ ^^^^^^^^ ^^^^^p^^ ^^^^^^^^ ^^^^^^*p#^T****^^TT*T*T'P^*'nT*TT'rT * * ^ ^ 

& AM2901 MP , MP , RAMF , AND , DA 
& LUSRCOND ; 

& I MM H#003F ; MASK OFF SELECT CODE 

4 AM2901 PC, PC ,N0P, ADD, AQ 
/ & CONDUSR NZ ; IF SC WAS 1, DO IT; ELSE 



MPLOWSC 

/ 
/ 



CONT 



JRP GENMPV 



***************************************************************** 



GENMPV - Generate memory protect violation 

- This routine will generate a protect violation 
for a priviledged instruction that was executed 
with the memory protect system enabled. 

- The procedure is to generate a pending memory 
protect interrupt, and restart the instruction 
mapping process . 

- No new fetch is performed. The idea is to leave 
the PC pointing to the word after the offending 
inst ruction . 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



GENMPV: JZ & AM2901 PC , PC , SRAMR , ADD , AB 



00106 



& CARRYL 

& SHIFT ROTATE 

& ENCN SETMPI 



GENERATE MEMORY PROTECT 
SETMPI CLEARS TDI 
CLEAR SIGN BIT OF PC 
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1639 ;***** 

1640 ;***** DIVCONT - CONTINUATION OF DIVIDE ROUTINE 

1641 ;**«** 

1642 - Test for negative dividend 

1643 ;####* - Put lower word of dividend in QREG 

1644 ;***** 

1645 DIVCONT: CJP DIV05 & AM2901 , A , QREG , PASS , ZB 

1646 00107 / & CONDUSR NSGN ; IF POSITIVE DIVIDEND 

1647 ;***** 

1648 ;***** - Two's complement dividend 

1649 ;«**** 

1650 CONT & AM2901 , , QREG , SUBS , ZQ 

1651 / & CARRYH ; 

1652 00108 / & LODUSR ; 

1653 CONT & AM2901 , B , RAMF , SUBS , ZB 

1654 00109 / & CARRYUC ; 

1655 ;***** 

1656 ;***** - Put divisor in S2 

1657 ;***** - Set sign and zero in macro status register accordingly 

1658 ;***** - clear macro overflow 

1659 ;«**** 

1660 DIV05: CONT &AM2901 TAB , S2 , RAMF , ADD , DZ 

1661 / & CARRYL ; 

1662 / & LODMSR ; 

1663 0010A / & ENBLO ; 

1664 ;***** 

1665 ;***** - Test for zero divisor 

1666 - put most significant word of dividend in SO 

1667 ;***** 

1668 CJP DIVOVFL &AM2901 B , SO , RAMF , PASS , ZA 

1669 0010B / & CONDMSR Z ; IF DIVISOR=0, OVERFLOW 

1670 ;***** 

1671 ;***** - Test for divisor too small (quotient >= 2**16) 

1672 ;***** 

1673 CONT & AM2901 , SO , NOP , PASS , ZB 

1674 0010C / & DIVCOND ; SET SIGN DIFF FLIP-FLOP 

1675 CJP DIVOVFL & AM2901 S2 , DIV , RAMF , SUBR , AB 

1676 / & CARRYL ; 

1677 / 4 CONDUSR NSGN ; 

1678 0010D / & SEQFRZ ; IF POSITIVE THEN OVERFLOW 

1679 ;***** 

1680 ;***** - DIVIDE ITERATION STEP 

1681 ;***** 

1682 ;***** Note: Shift opcode is same as value loaded into 2910 

1683 counter. This shift produces a bit in the 

1684 ;***** remainder (B reg) that is discarded (see right 

1685 ;***** shift remainder below), so the bit shifted into 

1686 ;***** the Q reg in the next line is a don't care. 
16 87 ;***** 

1688 PUSH H#00F & AM2901 , SO , SRAMQL , PASS , ZB 

1689 / & DIVCOND ; 

1690 0010E / & SHIFT Bttllll SET SIGN DIFF FF 

1691 RFCT & AM2901 S2 , DIV , SRAMQL , SUBR , AB 
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1692 / & CARRYL ; 

1693 / & DIVCOND ; 

1694 OOIOF / & SHIFT B#llll 

1695 ;***** 

1696 ;#**** - Shift remainder right one 

1697 ;***** 

1698 CONT & AM2901 , SO , SRAMR , PASS , ZB 

1699 OOllO / & SHIFT B#llll ; SHIFT IN SIGN 

1700 ;***** 

1701 - Test for remainder negative 

1702 ;***** 

1703 CJP DIV20 & AM2901 , SO , NOP , PASS , ZB 

1704 / & CONDUSR NSGN ; 

1705 00111 / & SEQFRZ ; IF POSITIVE THEN OKAY 

1706 ;***«* 

1707 ;***** - If remainder is negative, restore remainder by 

1708 ;***** adding/subtracting divisor. 

1709 ;***** 

1710 CONT & AM2901 , SO , NOP , PASS , ZB 

1711 00112 / & DIVCOND ; SET SIGN DIFF FF 

1712 CONT & AM2901 S2 , DIV , RAMF , SUBR , AB 

1713 00113 / & CARRYL ; RESTORE REMAINDER SIGN 

1714 ;***** 

1715 ;#**** - If dividend was negative, complement remainder 

1716 ;***** - Compute expected sign : dividend sign XOR divisor sign 

1717 ;***** 

1718 DIV20: CONT & AM2901 , SI , NOP , PASS , ZB 

1719 00114 / & LODUSR ; 

1720 CJP DIV25 & AM2901 SI , S2 , RAMF , EXOR , AB 

1721 00115 / & CONDUSR NSGN ; IF POSITIVE DIVIDEND 

1722 CONT & AM2901 , SO , RAMF , SUBS , ZB 

1723 00116 / & CARRYH ; COMPLEMENT REMAINDER 

1724 ;#**** 

1725 ;***** - If dividend and divisor had different sign, 

1726 ;***** complement quotient 

1727 ;«**** 

1728 CONT & AM2901 , S2 , NOP , PASS , ZB 

1729 00117 / & LODUSR ; TEST EXPECTED SIGN 

1730 DIV25: CJP DIV30 & AM2901 SO , B , RAMF , PASS , ZA 

1731 00118 / & CONDUSR SGN ; IF DIFFERENT SIGN 

1732 ;***** 

1733 - One's complement quotient to form true quotient 

1734 ;***** 

1735 JP DIV40 & AM2901 PC , A , RAMA , SUBS , ZQ 

1736 / & CARRYL ; 

1737 / & LODUSR ; 

1738 00119 / & LDMAR ; MAR = NEXT INST 

1739 ;***** 

1740 ;***** - Change one's complement to two's complement quotient 

1741 ;***** 

1742 DIV30: CONT & AM2901 PC , A , RAMA , ADD , ZQ 

1743 / & CARRYH ; 

1744 / & LODUSR ; 

1745 0011A / & LDMAR ; MAR = NEXT INST 
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1746 ,***** 

1747 ;***** - Done if quotient is zero 

1748 ;***** 

1749 DIV40: CJP INCPC & AM2901 A , S2 , NOP , EXOR , AB 

1750 / & CONDUSR Z ; 

1751 OOUB / & CMGO & IFETCH ; SET USR WITH SIGN 
17 52 ;***** 

1753 ;***** - Calculate overflow 

1754 ;**#** - Algorithm is : Set 0 if divisor sign XOR quotient 

1755 ;***** sign XOR dividend sign = 0 

1756 ;***** 

1757 CJP INCPC & AM2901 , A , QREG , PASS , ZB 

1758 / & CONDUSR NSGN ; 

1759 0011C / & CMGO A IFETCH ; 

1760 ;***** 

1761 ;***** - Divide overflow 

1762 ;***** - Set Overflow and put QREG back in A 

1763 ;***** 

1764 DIVOVFL: JP INCPC & AM2901 PC , A , RAMA , PASS , ZQ 

1765 / & LODMSR SET ; 

1766 / & ENBLO ; 

1767 / & LDMAR ; 

1768 0011D / & IFETCH ; SET OVERFLOW 
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1770 


*******************^ 


1771 


* 


* 


1772 


* 


INDIRECT RESOLVERS * 


1773 


* 


__ * 


1774 


* 


* 


1775 


* 


Assumes: - Address word read in progress * 


1776 


* 


* 


1777 


* 


* Allows base relative and A/B addressability * 


1778 


* 


* All reads are from data map * 


1779 


* 


* Allows three levels of indirection before * 


1780 


* 


becoming interruptible * 


1781 


* 


* The following is the maximum non-interrupt ible * 


1782 


* 


chain of indirects * 


1783 


* 




1784 


* 


+ - + + + + — + + # 


1785 


* 


UIMRGI 1 1 1 1 MRG indirect * 


1786 


* 


+ _ + + + + — + + ( 0r indirect DEF) * 


1787 


* 


1 * 


1788 


* 


v * 


1789 


* 


* 


1790 


* 


+ _ + + + + + + * 


1791 


* 


|1| 1 1 1 1 1 second indirect * 


1792 


* 


+ - + + + + + + # 


1793 


* 


1 * 


1794 


* 


v # 


1795 


* 


+ - + + + + + + * 


1796 


* 


|1| | | I | I third indirect * 


1797 


* 


+ - + + + + + + # 


1798 


* 


1 * 


1799 


* 


v * 


1800 


* 


+ - + + + + + + * 


1801 


* 


1 0 1 | | | | | actual address * 


1802 


* 


+ - + + + + + + * 


1803 


* 


1 * 


1804 


* 


v * 


1805 


* 


+ - + + + + + + * 


1806 


* 


1 1 1 1 1 1 1 data * 


1807 


* 


+ - + + + + + + * 


1808 


* 


* 


1809 




* 


1810 


*************************************^ 
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1813 ;* * 

1814 ;* Resolve indirect with operand read; The resolved * 

1815 ;* address is left in the MAR and also in QREG. * 

1816 ;* * 

1817 ;* The return is executed at the same time that the * 

1818 ;* operand read is started. This means that the first # 

1819 ;* cycle after return is free for another operation * 

1820 ;* * 

1821 ;* Note: This means that if the data is wanted, you must * 

1822 ;* either wait a cycle or code a MWAIT or a MGO special. * 

1823 ;* * 

1824 ;* This is the pure indirect resolver, with read of * 

1825 ;* operand. * 

1826 ;* * 

JL 8 2 7 i -^4^ 3fC 3fC 3fC^fC 3fC 3fC 

1828 ;***** 

1829 ;***** - Load MAR with next address 

1830 ;***** - Start read of operand 

1831 - Return if this address being loaded is direct 

1832 ;***** 

1833 READRES: CRET & AM2901 BR , TABQ , QREG , ADD , DZ 

1834 / & CARRYL ; 

1835 / & CONDEXT NSIGN ; 

1836 / & LDMAR ; 

1837 0011E / & DREAD ; 

1838 ;***** 

1839 ;***** - Wait for previous read to finish 

1840 ;***** - Load MAR with next address 

1841 ;***** - Start read of operand 

1842 ;***** - Return if the address being loaded is direct 

1843 ;***** 

1844 CRET & AM2901 BR , TABQ , QREG , ADD , DZ 

1845 / & CARRYL ; 

1846 / & CONDEXT NSIGN 

1847 / & LDMAR ; 

1848 OOUF / & DREAD ; 

1849 LDCT RDRES2 & AM2901 ,,N0P,ADD,AQ 

1850 00120 / & SPNOP ; 

1851 ;***** 

1852 ;***** - Load MAR with next address 

1853 ;**«** - Start read of operand 

1854 ;***** - Return if address being loaded is direct 

1855 ;***** 

1856 RDRES2: CRET & AM2901 BR , TABQ , QREG , ADD , DZ 

1857 / & CARRYL ; 

1858 / & CONDEXT NSIGN 

1859 / 4 LDMAR ; 

1860 00121 / & DREAD ; 

1861 JRP INTERRPT &AM2901 ,,N0P,ADD,AQ 

1862 00122 / & CONDEXT INTRPT ; IF INT PEND , JP 
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1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 



00123 



00124 



00125 



00126 



00127 



**************************************** 



READIND (MRGIND) 

Resolve indirect with operand read. Upon exit, the 
MAR will contain PC-1 if an MRG instruction is being 
executed, or PC if a non-MRG instruction is being 
executed. QREG is loaded with the resolved address. 



READIND is also useful for resolving the second word 
of a multi-word instruction, since it leaves PC 
(=next_inst + 1) in the MAR upon exit 
***************************************************************** 

- Put PC or PC-1 in MAR 

- Return if last address loaded was direct 



READIND 

/ 
/ 
/ 

MRGIND: 

/ 

/ 

/ 

/ 

MRGIND2 

/ 
/ 
/ 

/ 
/ 
/ 
/ 

/ 



CRET 



& AM2901 ,PC,NOP,SUBR,ZB 
& CARRYL 
& CONDUSR NSGN 
& LDMAR 



SUBTRACTS 1 IF MRG 



Load 2910 counter with 2 (loop 3 times) 
Load MAR with next address 
Read next word 

*** NOTE *** 
MRGIND MUST ALIGN SO THAT LOW 4 BITS ARE B#0100 



LDCT H#002 



CRET 



RPCT MRGIND2 



& 


AM2901 


BR , TABQ , QREG , ADD , DZ 


& 


CARRYL 






& 


LODUSR 






& 


LDMAR 






& 


DREAD 




READ NEXT 


& 


AM2901 


,PC,NOP,SUBR,ZB 


& 


CARRYL 






& 


CONDUSR 


NSGN 




& 


LDMAR 




SUBTRACTS 


& 


AM2901 


BR, TABQ, QREG, ADD, DZ 


& 


CARRYL 






& 


LODUSR 






& 


LDMAR 






& 


DREAD 






& 


AM2901 


, , NOP , ADD , AQ 


& 


CONDEXT 


INTRPT 





1 IF MRG 



CJPP INTERRPT 



Jump to READIND to do 3 more levels 
Must pass status of address (=QREG) to USR for 
READIND test 



JP READIND 



00128 



/ 



& AM2901 , , NOP, PASS, ZQ 

& LODUSR ; MUST PASS QREG TO USR 



D-47 



A600+ BASESET MICROCODE 6/15/83 ** [&LBRB1] 1:35 PM TUE . , 13 SEPT, 1983 PAGE 48 

LINE ADDR STATEMENT 



1917 ; ************************************* 

1918 ;* * 

1919 ;* Resolve indirect without operand read, and leave * 

1920 ;* resolved address in MAR. The resolved address is * 

1921 ;* also left in QREG. * 

1922 ;* * 

1923 ;* This indirect resolver is used if the address is a * 

1924 ;* store address and the target word should not be read. * 

1925 ;* * 

1926 ; ***************************************************************** 

1927 ;***** 

1928 ;***** - Load QREG and MAR with next address 

1929 ;***** - If address is indirect, do a DREAD 

1930 ;***** - if address is direct, return 

1931 ;***** 

1932 INDRES: CRET & AM2901 BR , TABQ , QREG , ADD , DZ 

1933 / & CARRYL ; 

1934 / & CONDEXT ; 

1935 / & LDMAR ; 

1936 / & MWAIT ; MWAIT == CONDEXT NSIGN 

1937 00129 / & CMSGN & DREAD ; READS IF INDIRECT; RTN I 
19 3 8 ; ***** 

1939 ;***** - If address is indirect, do a DREAD 

1940 ;***** - If address is direct, return 

1941 ;***** 

1942 INDRES1: CRET & AM2901 BR , TABQ , QREG , ADD , DZ 

1943 / & CARRYL ; RETURN IF NOT INDIRECT 

1944 / & CONDEXT ; CONDEXT IS NSIGN (=MWAIT) 

1945 / & LDMAR ; MAR CONTAINS ADDRESS ON R 

1946 / & MWAIT ; WAIT FOR READ 

1947 0012A / & CMSGN & DREAD ; READS IF INDIRECT 

1948 LDCT INDRES2 &AM2901 ,,NOP,ADD,AQ 

1949 0012B / & SPNOP ; LOAD COUNTER FOR NO INTRP 

1950 ;***** 

1951 ;***** - Load QREG and MAR with next address 

1952 ;***** - If address is indirect, do a DREAD 

1953 ;***** - If address is direct, return 

1954 ;***** 

1955 INDRES2: CRET & AM2901 BR , TABQ , QREG , ADD , DZ 

1956 / 4 CARRYL ; 

1957 / & CONDEXT ; 

1958 / & LDMAR ; 

1959 / & MWAIT ; MWAIT == CONDEXT NSIGN 

1960 0012C / & CMSGN & DREAD ; READS IF INDIRECT; RTN IF 

1961 ;***** 

1962 ;***** - Jump to INDRES2, or to INTERRPT if there is an 

1963 ;***** interrupt pending 

1964 ;***** 

1965 JRP INTERRPT &AM2901 ,,N0P,ADD,AQ 

1966 0012D / & CONDEXT INTRPT ; 
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1968 




\ 




1969 




ASLOVFL: RET 


& AM2901 ,S0,SRAML,PASS,DZ 


1970 


0012E 


/ 


& IMM H#8000 ; SHIFT B#0000 IMPLIED 


1971 






; SETS MC ( =M0 AFTER SWAPEO 


1972 






*** NOTE *** 


1973 




; JZA MUST 


ALIGN WITH LOW 4 BITS = B#llll 


1974 








1975 




JZA: JZ 


& AM2901 , A , RAMF , PASS , ZQ 


1976 


0012F 


/ 


& SPNOP ; A = QREG 


1977 


00130 


FILLER 




1978 


00131 


FILLER 




i y / y 


Art 1 O 1 ) 
U U 1 J £. 


r ILLtK 




1980 


00133 


FILLER 




1981 


00134 


FILLER 
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1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 



00135 



00136 



00137 



00138 



00139 



0013A 



**************************************** 

* * 

* I/O Instruction Subroutines * 

* * 
***************************************************************** 

- IOHSHAKE - I/O chip handshake 



***** 

IOHSHAKE 

/ 

/ 

IOHSHAK0 : 
/ 

/ 

IOHSHAK1 : 

/ 

I0HSHAK2 : 

/ 



This routine handshakes a word from an I/O chip. 
It will wait 8 microcycles before aborting the 
handshake and fetching the next instruction. 



PUSH H#002 



RFCT 



PUSH H#002 



TWB FIXMAR 



& 
& 
& 
& 
& 
& 
& 
& 



AM2901 

SPNOP 

AM2901 

SPNOP 

AM2901 , 

SPNOP 

AM2901 

CONDEXT 



, NOP , ADD , AQ 

; WAIT FOR I/O 
, NOP , ADD , AQ 

; WAIT FOR I/O 
, NOP ,'ADD , AQ 

, NOP , ADD , AQ 

IORQ ; WAIT FOR IORQ 



- I/O chip 

- Read the 



asserted IORQ 
control word 



CONT 



CJP 



IOHSHAK2 



& AM2901 , , NOP.ADD.AQ 
& SPETC IORD ; 
& AM2901 , , NOP , ADD , AQ 
& CONDEXT IORQ ; WAIT 



FOR IORQ TO GO AWAY 



Control word is now in the MDIR and in the IR 

Put control word in QREG 

Return 



RET 



0013B 



& 
& 



AM2901 
SPNOP 



PC, , QREG, PASS, DZ 
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2019 








2020 






;* 








* 


2021 






,* 




I/O 


CONTROL WORD ROUTINES 


* 


2022 






,* 








* 


2023 






,* 




The 


control word is passed over the data bus on 


* 


2024 






,* 




bits 


DB4-DB7 with DB8 being the continue bit 


* 


2025 






,* 








* 


2026 






* 




The 


control words are 


* 


2027 






* 








* 


202 8 






* 


* 


0000 


- NOP 


* 


2029 






* 


* 


0001 


- LOAD P FROM DATA BUS 


* 


2030 






* 


* 


0010 


- LOAD A FROM DATA BUS 


* 


2031 






* 


* 


0011 


- LOAD B FROM DATA BUS 


* 


2032 






* 




0100 


- CLEAR THE OVERFLOW BIT 


* 


2033 






* 




0101 


- SET THE OVERFLOW BIT 


* 


2034 






* 


* 


0110 


- MERGE INTO A REG FROM DATA BUS 


* 


2035 






* 


* 


0111 


- INCREMENT P 


* 


2036 






* 




1000 


- PUT STATUS REG ON DATA BUS 


* 


2037 






* 


* 


1001 


- ENABLE BOOT ROM 


* 


2038 






* 


* 


1010 


- PUT A ON DATA BUS 


* 


2039 






* 


* 


1011 


- PUT B ON DATA BUS 


* 


2040 










1100 


- CLEAR E REG 


* 


2041 










1101 


- SET E REG 


* 


2042 






* 


* 


1110 


- PUT P ON DATA BUS 


* 


2043 






* 




1111 


- PUT P ON DATA BUS, INCREMENT P 


* 


2044 






* 










2045 






* 




NOTE 


- ONLY THE STARRED (*) CONTROL WORDS ARE 


* 


2046 






* 




GENERATED BY THE I/O MASTER, AND SO THEY ARE THE 


* 


2047 






* 




ONLY 


ONES IMPLEMENTED 


* 


2048 






* 








* 


2049 








2050 
















2051 










- Undefined control word is a NOP 




2052 
















2053 




IODCXXXX 




RET 


& AM2901 PC, , NOP , ADD , AQ 




2054 


0013C 


/ 






& SPNOP ; IF UNDEFINED OR 


NOT IMPLE 


2055 
















2056 










- Load P from data bus 




2057 
















2058 




IODC0001 




CALL 


IOHSHAKO & AM2901 ,,NOP,ADD,AQ 




2059 


0013D 


/ 






& SPNOP ; LOAD P FROM DATA 


BUS 


2060 










RET 


& AM2901 PC,PC,RAMF,PASS,DZ 




2061 


0013E 


/ 






& SPNOP ; RETURN 




2062 
















2063 










- Load A from data bus 




2064 
















2065 




IODC0010 




CALL 


IOHSHAKO & AM2901 ,,NOP,ADD,AQ 




2066 


0013F 


/ 






& SPNOP ; LOAD A FROM DATA 


BUS 


2067 










RET 


& AM2901 PC , A , RAMF , PASS , DZ 




2068 


00140 


/ 






& SPNOP ; 




2069 
















2070 










- Load B from data bus 




2071 
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2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 



00141 
00142 



00143 
00144 



00145 



00146 
00147 

00148 



00149 



0014A 



IODC0011 : 

/ 

/ 

***** 

IODC0110 : 
/ 



/ 

I0DC0111 : 

/ 
/ 

***** 

IODC1001 

/ 

/ 



/ 

/ 
/ 

IODC1010 : 

/ 

/ 

***** 

5|C 3|C 3(C 5|C 3|( 
5(c 3(C 2fC 5(C 3|C 

I0DC1011 : 

/ 

/ 



CALL IOHSHAKO &AM2901 ,,NOP,ADD,AQ 

& SPNOP ; LOAD B FROM DATA BUS 

RET & AM2901 PC , B , RAMF , PASS , DZ 

& SPNOP ; 

- Merge into A/B 

- Note : A/B is selected by IR bit 10 



CALL IOHSHAKO 
RET 

- Increment PC 
RET 

- Enable VCP 



& AM2901 , , NOP , ADD , AQ 

& SPNOP ; MERGE INTO A/B (IR10) 

& AM2901 CAB, CAB, RAMF , OR , DA 
& SPNOP ; 



& AM2901 PC, PC, RAMF, ADD, ZB 

& CARRYH ; 

& SPNOP ; INCREMENT PC 



- In order to enable the VCP, the following operations 
must be done: 

- Format and save interrupted Q in IQLOC 

- Format and save IMAP in IMAPLOC 

- Turn off memory protect system 

- Enable boot memory 



CONT 

CALL STWMAP 
RET 



& AM2901 ,S0,SRAMR,PASS,DZ 

& I MM H#0040 ; SO = H#0020 

& LDMAR ; SAVE WMAP IN BOOT MEM LOC 

& AM2901 , SO, NOP, PASS, ZB 

& LDAER ; AER := H#20 (BOOT MEM) 

& AM2901 PC,MAPX,NOP,PASS,DZ 

& IMMB H#60 ; MAPX = BOOT MEMORY, ABREF 

& ENCN CLRMPEN ; TURN OFF MP SYSTEM 



- Put A register on the data bus 

- Note : The return from IOHSHAK2 returns directly to 

the calling routine 

JP IOHSHAK2 & AM2901 A , A , RAMA , PASS , ZB 
& LDMDOR ; 

& SPETC IOWR ; PLACE A ON DATA BUS 

- Put B register on the data bus 

- Note : The return from I0HSHAK2 returns directly to 
the calling routine 

JP I0HSHAK2 & AM2901 B , B , RAMA , PASS , ZB 
& LDMDOR ; 

& SPETC IOWR ; PLACE B ON DATA BUS 
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2126 ;***** - Put PC on the data bus 

2127 ;***** - Note : The return from IOHSHAK2 returns directly to 

2128 the calling routine 

2129 ;***** 

2130 IODC1110: JP IOHSHAK2 &AM2901 PC , PC , RAMA , PASS , ZB 

2131 / & LDMDOR ; 

2132 0014B / & SPETC IOWR ; PLACE PC ON DATA BUS 
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2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 



0014C 



0014D 



0014E 



0014F 



00150 
00151 



00152 

00153 
00154 
00155 
00156 



* - Power on interrupt * 

* - Do a basic self-test of machine operation * 

* - A pattern of all ones with a single zero bit is * 

* rotated thru all data bus bits. * 

* * 
**********************************^ 



INTPON: 

/ 
/ 

/ 
/ 
/ 

/ 
/ 

/ 
/ 

INTDEAD: 

/ 

/ 

/ 

***** 
***** 

INTPONOK: 

/ 



/ 
/ 



PUSH 



CONT 



LOOP 



CJP LASTWD 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



AM2901 B,A,SRAML,PASS,ZA 
ENCN SETDTST 
SHIFT ROTATEC 
AM2901 , A , SRAML 
SHIFT ROTATE 
LODUSR 
LDMDOR 

AM2901 B , B , RAMA 
CONDUSR NSGN 



LDMAR 
AM2901 
CARRYH 
CONDUSR 



A := H#FFFE 
PASS.ZB 



WRITE PATTERN IN A 
EXNOR , DA 



BUILD CHECK PATTERN IN B 
, RAMF , AND , ZB 

; IF B=0 THEN PASS 



Self-test failure 



CONT 



JP 



INTDEAD 



& 
& 
& 
& 
& 



AM2901 , A, SRAML, PASS, ZB 
SHIFT ROTATEC ; 
LDMDOR 

A, A, RAMA 



AM2901 
SPNOP 



GENERATE PATTERN 
PASS.ZA 
LOOP ON PATTERN 



Self-test passed 
Initialize registers to 



their power-up values 



MAPX - Points to boot memory 
MAPD1 - Points to map zero 
MAPD2 - Points to map zero 

PC - Points to location 20002Q in boot memory 
LEDS - Result of self-test 



CONT 



CONT 



CALL CHECKSUM 



CONT 



CONT 



& 
& 

& 
& 
& 
& 
& 
& 
& 
& 
& 



AM2901 ,MAPD1 
ENCN CLRDTST 



NOP, AND, ZQ 

TURN OFF DATA BUS LOOPBA 
AND INITIALIZE MAPD1 
,NOP,PASS,DZ 



AM2901 
LDST ; 

IMM H#0020 ; INIT PROCESSOR STATUS REG 

AM2901 , B, RAMF , PASS, ZB 
SPWR LEDWR ; SET LEDS 

AM2901 , PC, RAMF, PASS, DZ 
IMM H#2002 ; INIT PC TO 20002Q 

AM2901 ,MAPD2 , RAMF , AND, ZB 
SPETC MKLRON ; S4 : = 0 ; MAPD2 := 0 
TURN ON MGOKILLER 
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2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 



00157 



00158 

00159 

0015A 

0015B 
0015C 

0015D 



***** 



/ 



0015E 



/ 
/ 
/ 

/ 
/ 
/ 

/ 
/ 

/ 
/ 



/ 
/ 

SKIP: 
/ 
/ 
/ 



Initialize map registers on the memory controller 
All map registers are initialized to their own number 
EX: MAP0000 := 0; 
MAP0001 := 1; 

MAP1023 := 1023; 



PUSH H#01F & AM2901 , SO , RAMF , AND , ZB 

& LODMSR RESET ; 2910 := NUMBER OF MAP SE 

- Note : The following CPUSH never loads the counter 

CPUSH & AM2901 SO , SO , RAMA , ADD , ZA 

& CARRYH 
& CONDMSR SGN 
& LDAER 

CONT & AM2901 SO , SO , RAMA , ADD , DA 

4 CARRYL 

& LDMAR 

& I MM H#0400 
CONT & AM2901 S4 , S4 , RAMA , ADD , ZB 

& CARRYH ; 

& SPWR MAPWR ; WRITE TO MAP REG 

LOOP & AM2901 , SO, NOP, PASS, ZB 

& CONDUSR SGN ; 

& SEQFRZ ; 
RFCT & AM2901 SO , SO , RAMF , AND , DA 

& I MM HttOOlF ; ZERO MAP REG NUMBER 

CONT & AM2901 PC , MAPX , NOP , PASS , DZ 

& LDAER ; 

& IMM H#0060 ; SET MAPX TO BOOT MEMORY 



LOAD AER WITH MAP NUMBER 



LOAD MAR WITH MAP REG # 



Fetch the first instruction 



JZ 



& AM2901 PC, PC, RAMA, ADD, ZB 
& CARRYH 
& LDMAR 
& IFETCH 



PC -> NEXT INSTRUCTION 
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2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 



0015F 



00160 



00161 



00162 



00163 



00164 



00165 



00166 



00167 



00168 
00169 



A/B Instruction Fetch Interrupt 
Interrupt is generated when MAR contains 
zero or one and IFETCH is asserted. This 
condition is latched for the source special 
After interrupt vectoring, the appropriate 
register is written to memory and refetched 



* 
* 

* 
* 

* 
* 



*************************************^^ 



INTFTCH: 

/ 
/ 

/ 
/ 

/ 
/ 
/ 

INTPARTY: 
/ 

/ 
/ 
/ 

/ 
/ 
/ 

INTTBG: 

/ 



/ 
/ 
/ 

/ 
/ 
/ 

INTIO: 
/ 

/ 



CONT 



CONT 



JZ 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



PC 



AM2901 TAB, , NOP, PASS, DZ 
LDMDOR ; 
DWRITE 
AM2901 
CARRYH 
ABFETCH 
AM2901 PC 
CARRYL 

SHIFT B#0000 
SPETC MKLRON 



; WRITE INST TO MEMORY 
PC.RAMF , ADD , ZB 
; INC PC 

; REFETCH INST FROM MEMORY 
PC , SRAMR , ADD , AB 



TURN MGOKILLER BACK ON 



- Parity Error Interrupt 



CALL SETMAPS 



CONT 



JZ 



TBG interrupt 



CALL SETMAPS 



CONT 



JZ 



I/O interrupt 



CALL SETMAPS 



CONT 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



& 
& 
& 
& 



AM2901 ,,NOP,ADD,AQ 

ENCN CLRMPI ; CLEAR POSS MP INTERRUPT 
AM2901 PC,CIR,NOP,PASS,DZ 
I MM H#0005 
LDMAR 
IFETCH 

AM2901 PC, PC 
CARRYL 
SHIFT B#0000 
SPETC MKLRON 



FETCH FROM 
SRAMR, ADD, AB 



LOCATION 5 



TURN MKLR BACK ON 



AM2901 ,,N0P,ADD,AQ 
SPNOP ; 
AM2901 PC.CIR.RAMF ,PASS,DZ 
IMM H#0006 
LDMAR 
IFETCH 



FETCH FROM LOC 6 



AM2901 PC, PC, SRAMR , ADD, AB 
CARRYL 

SHIFT B#0000 
SPETC MKLRON 



TURN MKLR BACK ON 



AM2901 , , NOP , ADD , AQ 

SPETC MIAK ; ACK I/O INT; SET UP MAPS 

AM2901 PC,CIR,NOP,PASS,DZ 

SPRD ECIRRD ; PUT I/O SELECT CODE IN CI 
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2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 



JZ 



0016A 



0016B 

0016C 

0016D 
0016E 



0016F 



00170 



00171 



00172 



00173 



00174 



00175 



00176 



/ 
/ 
/ 

***** 

INTSLRQ: 
/ 

/ 
/ 

/ 
/ 



/ 
/ 
/ 
/ 

INTPROT: 

/ 

/ 
/ 
/ 

/ 
/ 
/ 

INTPFW: 

/ 

/ 
/ 

/ 
/ 
/ 

/ 
/ 
/ 



4 AM2901 PC,PC,SRAMR,ADD,AB 
4 CARRYL 
4 SHIFT B#0000 
4 SPETC MKLRON 



TURN MKLR BACK ON 



- Slave request pseudo-interrupt 

- Simply handshake I/O control words until the continue 

bit is no longer set 



CALL IOHSHAKE 



CALL 



CONT 



CJP INTSLRQ 



JZ 



4 AM2901 , , NOP , ADD , AQ 
4 ENCN SETTDI ; 
4 AM2901 MP,MP,RAMF,PASS,ZQ 
4 SPETC IRSP ; SAVE CONTROL WORD IN MP, 

4 JTAB CWDCODE ; DO THE CONTROL WORD 
4 AM2901 MP , MP , RAMF , AND , DA 
4 LUSRCOND ; 
4 I MM H#0100 ; TEST LOOP BIT 

& AM2901 PC, PC, NOP, ADD, AQ 
4 CONDUSR NZ ; IF LOOP BIT WAS SET 

4 AM2901 PC, PC, RAMA, ADD, ZB 
4 CARRYH 
4 SPETC MKLRON 
4 LDMAR 
4 IFETCH 



GET NEXT INSTRUCTION 



- Memory protect interrupt 
CALL SETMAPS 
CONT 



JZ 



4 AM2901 , , NOP , ADD , AQ 

4 SPNOP ; SAVE MAPS, SET UP NEW MAP 

4 AM2901 PC.CIR , NOP, PASS, DZ 
4 IMM H#0007 
4 LDMAR 
4 IFETCH 

4 AM2901 PC,PC,SRAMR,ADD,AB 
4 CARRYL 
4 SHIFT B#0000 
4 SPETC MKLRON 



FETCH FROM LOCATION 7 



TURN MKLR BACK ON 



- Power fail warning interrupt 
CALL SETMAPS 
CONT 



CONT 



JZ 



4 AM2901 , , QREG , PASS , DZ 

4 SPRD STRD ; PUT STATUS REG IN QREG 

4 AM2901 , ,NOP,OR,DQ 
4 IMMB H#08 ; 

4 LDST ; INHIBIT TYPE 2 AND 3 INTS 

4 AM2901 PC,CIR,NOP,PASS,DZ 
4 IMM H#0004 
4 LDMAR 
4 IFETCH 

4 AM2901 PC,PC,SRAMR,ADD,AB 
4 CARRYL 
4 SHIFT B#0000 
4 SPETC MKLRON 



FETCH FROM LOC 4 



TURN MKLR BACK ON 
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2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 



00177 
00178 



00179 



0017A 

0017B 
0017C 
0017D 

0017E 

0017F 
00180 
00181 
00182 
00183 
00184 



^ ^p^. ^ ^p^^ ^^p^p^p^p ^^p^p ^ ^p^p^p.^p^p^p^p^p^^^p^p<^^^p^p^p^p^^^p^p^p^p^p^p^p ^ ^p^p^p ^^p^p^p^p^^^p^ ^p^p^p ^p^p^%^%^p^p 



- SETMAPS - set up routine for interrupt handling 

- Save current working map set in IMAPLOC 

- Save interrupted Q in IQLOC 

- Disable Memory Protect system 

- Turn off CSMODE 

- Set DATA1 map set to current MAPX 

- Set MAPX to 0 

- Set TDI 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



SETMAPS: 
/ 

/ 



/ 
/ 
/ 

SAVEINT: 

I 



/ 

WRITEIQ: 

/ 

/ 

/ 

SAVEIMAP: 

/ 
/ 

STWMAP : 

/ 

/ 



CALL SAVE INT 



C0NT 



RET 



SAVEINT - Format 
respect ively . 



AM2901 ,,N0P,ADD,AQ 

ENCN SETTDI ; SAVE IMAP, IQ; SET TDI 

AM2901 MAPX, MAPD1, RAMF, PASS, DZ 

ENCN CLRMPEN ; CLEAR MP SYSTEM FF ; 

S4 = DATA1 = OLD MAPX 
AM2901 S4, MAPX, NOP, AND, DA 



SPETC CLRCS 
IMMB H#60 
LpAER 



TURN OFF CSMODE 



MAPX 



0 (40 IF BOOT MOD 



and store IMAP and IQ in IMAPLOC and IQLOC 



C0NT 



CONT 



CJP WRITEIQ 



CONT 



CONT 



CONT 



CONT 



CONT 



CONT 



CONT 



CONT 



& AM2901 , , NOP, PASS, DZ 
& IMMB H#20 

& LDAER ; POINT TO BOOT MEMORY 

& AM2901 Q, , NOP, PASS, DZ 
& IMM IQLOC ; 

& LDMAR ; ITS GOING IN IQLOC 

& AM2901 Q , SO , RAMF , PASS , ZA 
& CONDEXT CSON ; IS CS MODE ON? 
& AM2901 SO, SO, RAMF, OR, DA 
& IMM H#8000 ; NO - SET CSMODE BIT 

& AM2901 SO, TAB, NOP, PASS, ZA 
& SPETC CLRCS 
& LDMDOR 
& DWRITE 
& AM2901 , ,NOP, 
& IMM IMAPLOC ; 
& LDMAR ; NEXT IS IMAP 

& AM2901 S6.S4, RAMF, PASS, DZ 

& IMM H#001F ; 5 BIT MASK FOR MAP NUMBER 

& AM2901 MAPD2 , SO , SR AML , AND , DA 

& SHIFT BttOOlO ; SO := MAPD2*MASK, SL1 

& AM2901 SO, SO, RAMA, PASS, DZ 

& SPRD RL4 ; ROTATE LEFT 4 MORE 

& AM2901 MAPD1 , S5 , RAMF , AND , DA 

& SPNOP ; S5 := MAPD1*MASK 

& AM2901 S5,S0,SRAML,OR,AB 

& SHIFT BttOOlO ; OR IT IN, SL1 



TURN CSMODE 
, PASS.DZ 



OFF ; WRITE I 



D-57 



A600+ BASESET MICROCODE 6/15/83 ** [&L6RB1 ] 1:35 PM TUE . , 13 SEPT, 1983 PAGE 59 

LINE ADDR STATEMENT 



2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 



00185 



00186 



00187 



00188 



00189 



/ 

/ 
/ 
/ 

SVWMAP: 

/ 

/ 



CONT 
CONT 

CJP SVWMAP 
RET 

RET 



& AM2901 SO, SO, RAMA, PASS, DZ 

& SPRD RL4 ; ROT L 4 MORE 

& AM2901 MAPX , S5 , R AMF , AND , DA 

& SPNOP ; S5 := MAPX*MASK 

& AM2901 S5,S0,RAMF,OR,AB 

& CONDEXT NMPEN ; OR IN MAPX; IF MP NOT ON, 
& AM2901 S0,S0,RAMF,OR,DA 
& IMM H«8000 
& LDMDOR 

& DWRITE ; SET MP BIT; WRITE IMAP; R 

& AM2901 SO, TAB, NOP, PASS, ZA 
& LDMDOR ; 

4 DWRITE ; WRITE WMAP; RETURN 
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2400 ; ***************************************************^^ 

2401 ;* * 

2402 ;* Index Register Group * 

2403 ;* -- * 

2404 ;* * 

2405 ; ******************************** 

2406 ;***** 

2407 ;***** - ADX. Add (MEM) to X/Y 

2408 ;***** 

2409 ADX.: CCALL READRES & AM2901 BR , TABQ ,QREG , ADD , DZ 

2410 / & CARRYL ; 
24H / & CONDEXT MDIR15 ; 

2412 / & LDMAR ; 

2413 0018A / & DREAD ; GET OPERAND 

2414 CONT & AM2901 PC , PC , RAMA , ADD , ZB 

2415 / & CARRYH ; 

2416 0018B / & LDMAR ; MAR = NEXT INST 

2417 CONT & AM2901 TAB , SO , RAMF , PASS , DZ 

2418 0018C / & IFETCH ; OPERAND IN SO ; FETCH 

2419 JZ & AM2901 SO , CXY , RAMF , ADD , AB 

2420 / & CARRYL ; 

2421 / & LODMSR ENVE ; 

2422 0018D / & ENBLC & ENBLO ; 

2423 ;***** 

2424 ;***** - Copy A/B to/from X/Y 

2425 ;***** 

2426 COPYABXY: JZ & AM2901 CAB , CXY , RAMF , PASS , ZA 

2427 0018E / & IFETCH ; 

2428 COPYXYAB: JZ & AM2901 CXY , CAB , RAMF , PASS , ZA 

2429 0018F / & IFETCH ; 

2430 ;***** 

2431 ;*«*** - Dec/inc X/Y and skip if zero 

2432 ;***** 

2433 DSXY: JP SKIFZ & AM2901 CXY , CXY , RAMF , SUBR , ZA 

2434 / & CARRYH ; 

2435 00190 / & LODUSR ; DECREMENT X/Y 

2436 ISXY: JP SKIFZ & AM2901 CXY , CXY , RAMF , ADD , ZA 

2437 / & CARRYH ; 

2438 00191 / & LODUSR ; INCREMENT X/Y 

2439 ;***** 

2440 ;***** - JLY - Jump and load Y 

2441 ;***** 

2442 JLY: CCALL INDRES & AM2901 BR , TABQ , QREG , ADD , DZ 

2443 / & CARRYL ; 

2444 / & CONDEXT MDIR15 ; 

2445 / & LDMAR ; 

2446 00192 / & CMGO & DREAD ; RESOLVE ADDRESS WORD 

2447 JP INCFTCH & AM2901 PC , Y , RAMF , PASS , ZA 

2448 00193 / & SPNOP ; LOAD Y WITH RETURN ADDRES 

2449 ; GO LOAD PC WITH QREG +1, FET 

2450 ■ (THE MAR CONTAINS THE FETCH ADDR 

2451 ;***** 

2452 ;***** - JPY - Jump indexed by Y 
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2453 ;***** - PC := Operand Addr + Y 

2454 ;***** - Indirection IS allowed for the operand 

2455 ;***** 

2456 ; THIS INSTRUCTION LOOKS FUNNY FOR COMPATIBILITY REASONS 

2457 ; 

2458 JPY: CONT & AM2901 , TABQ , QREG , ADD , DZ 

2459 / & CARRYL ; 

2460 / & CONDEXT IR2 ; NEVER TRUE 

2461 / & LDMAR ; 

2462 / & CMGO & DREAD ; FOR COMPATIBILITY 

2463 00194 / & C0N12 H#129 ; FOR COMPATIBILITY (129=IN 

2464 JP INCPC & AM2901 Y , PC , RAMF , ADD , AQ 

2465 / & CARRYL ; 

2466 / & LDMAR ; 

2467 00195 / & IFETCH ; COMPUTE ADDR AND FETCH 
246 8 ;***** 

2469 ;***** - Load A/B indexed by X/Y 

2470 ;***** 

2471 LABXY: CCALL INDRES & AM2901 BR , TABQ , QREG , ADD , DZ 

2472 / & CARRYL ; 

2473 / & CONDEXT MDIR15 ; 

2474 / & LDMAR ; 

2475 00196 / & CMGO & DREAD ; GET EFFECTIVE ADDR IN Q 

2476 CONT & AM2901 CXY , , NOP , ADD , AQ 

2477 / & CARRYL ; 

2478 / & LDMAR ; 

2479 00197 / & DREAD ; ADD X/Y AND READ OPERAND 

2480 JP LD . & AM2901 PC , PC , RAMA , ADD , ZB 

2481 / & CARRYH ; 

2482 00198 / & LDMAR ; NEXT INST ADDR 
24 83 ;***** 

2484 ;***** - LDX. : Load X/Y with (MEM) 

2485 ;***** 

2486 LDX.: CALL READIND &AM2901 BR , TABQ , QREG , ADD , DZ 

2487 / & CARRYL ; 

2488 / & LODUSR ; 

2489 / & LDMAR ; 

2490 00199 / & DREAD ; GET OPERAND 

2491 JP INCPC & AM2901 TAB , CXY , RAMF , PASS , DZ 

2492 0019A / & IFETCH ; PUT IT IN X, FETCH 

2493 ;***** 

2494 ;***** - Store A/B indexed by X/Y 

2495 ;***** 

2496 SABXY: CCALL INDRES & AM2901 BR , TABQ , QREG , ADD , DZ 

2497 / & CARRYL ; 

2498 / & CONDEXT MDIR15 ; 

2499 / & LDMAR ; 

2500 0019B / & CMGO & DREAD ; GET EFFECTIVE ADDR IN Q 

2501 CONT & AM2901 CXY , , NOP , ADD , AQ 

2502 / & CARRYL ; 

2503 0019C / & LDMAR ; LOAD MAR WITH INDEXED ADD 

2504 JP SKIP & AM2901 CAB , TAB , NOP , PASS , ZA 

2505 / & LDMDOR ; 

2506 0019D / & DWRITE ; WRITE, FETCH NEXT INSTR. 
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2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 



0019E 



0019F 



001A0 
001A1 
001A2 



STX. : 

/ 

/ 

/ 

/ 

/ 

)jC ^jC )(C 5jC 3(C 

XABXY: 

/ 

/ 
/ 



- STX - Store X/Y to MEM 
CCALL INDRES 



JP 



SKIP 



& AM2901 BR , TABQ , QREG , ADD , DZ 
& CARRYL 
& CONDEXT MDIR15 
& LDMAR 

& CMGO & DREAD 
& AM2901 CXY, TAB, NOP, PASS, ZA 
& LDMDOR ; 

& DWRITE ; WRITE X/Y TO MEMORY 



RESOLVE ADDRESS WORD 



- Exchange A/B with X/Y 
CONT 
CONT 
JZ 



& AM2901 CAB,SO,RAMF,PASS,ZA 
& SPNOP ; SO := A/B 

& AM2901 CXY, CAB, RAMF, PASS, ZA 
& IFETCH ; A/B :* X/Y, FETCH 

& AM2901 SO, CXY, RAMF, PASS, ZA 
& SPNOP ; X/4 := SO 
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2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 



001A3 
001A4 

001A5 

001A6 



001A7 
001A8 

001A9 

001AA 



001AB 
001AC 



* * 

* Bit Manipulation Instructions * 

* * 

* * 

* Format is: BIT-OPCODE * 

* DEF MASK * 

* DEF TARGET * 

* * 

* Bit opcodes are : * 

* CBS - clear bits * 

* SBS - set bits * 

* TBS - test bits * 

* * 



CBS: 

/ 

/ 

/ 

/ 

/ 



/ 

/ 
/ 

SBS: 

/ 

/ 

/ 

/ 

/ 



CALL READIND 



/ 
/ 

TBS : 

/ 

/ 

/ 

/ 

/ 



CALL READRES 
CONT 

JP TWIEXIT 



CALL READIND 



CALL READRES 
CONT 

JP TWIEXIT 

CALL READIND 



& 
& 

& 
& 
& 
& 
& 

& 
& 
& 
& 
& 



BR , TABQ , QREG , ADD , DZ 



AM2901 
CARRYL 
LODUSR 
LDMAR 

DREAD ; GET FIRST OPERAND 

AM2901 TAB , SI , RAMF , EXNOR , DZ 

CREAD ; SI := INVERTED MASK 

RESOLVE AND READ TARGET 
, SI, QREG, PASS, ZB 

; QREG := SI 
TAB, TAB, NOP, AND, AQ 



AM2901 
SPNOP 
AM2901 
LDMDOR 
DWRITE 



WRITE TARGET WORD 



& AM2901 BR, TABQ, QREG, ADD, DZ 
& CARRYL 
& LODUSR 
& LDMAR 

& DREAD ; GET OPERANDS 

& AM2901 TAB, SI, RAMF, PASS, DZ 
& CREAD ; SI := MASK 

RESOLVE AND READ TARGET 
SI, QREG, PASS, ZB 

; QREG := SI 



AM2901 
SPNOP 



4 
& 

& AM2901 TAB , TAB , NOP , OR , AQ 
& LDMDOR 

& DWRITE ; WRITE TARGET WORD 

& AM2901 BR, TABQ, QREG, ADD, DZ 
& CARRYL 



CALL READRES 



LODUSR 

LDMAR 

DREAD 

AM2901 

CREAD 



GET OPERANDS 
TAB, SI , RAMF , PASS.DZ 

; SI : = MASK 
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2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 



001AD 



001AE 



001AF 



001B0 



CONT 
CONT 
CONT 

JP TWIEXIT 



RESOLVE AND READ TARGET 
& AM2901 ,S1,QREG,PASS,ZB 
& SPNOP ; QREG := SI 

& AM2901 TAB , SO , RAMF , AND , AQ 
& SPNOP ; SO := THE BITS TO TEST 

& AM2901 SO , , NOP , EXOR , AQ 

& LODUSR ; TEST THE BITS FOR ALL ONE 

4 AM2901 , PC, RAMF, ADD, ZB 
& CARRYEXT ; 

& CONDUSR NZ ; IF NOT ALL ONES, SKIP 
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2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

2610 

2611 

2612 

2613 

2614 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2638 

2639 

2640 

2641 

2642 

2643 

2644 



001B1 



001B2 

001B3 
001B4 

001B5 
001B6 



001B7 



001B8 
001B9 
001BA 

001BB 



****************************************** 



Byte Manipulation Instructions 



All of these instructions use a byte address, 
address is two times the normal address plus 0 or 1 
high (bits 8-15) or low (bits 0-7) byte is desired. 

Notes: SO contains byte address 

S5 contains a H#00FF to mask off a byte 
S4 contains byte to load or to store 



A byte 
if the 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



)(C 3^C 3jC 3)C 3|C 3(C >|C )|C 3fC3f( ^ J^C >jC 3(C3|C JjC 3|C 3(C J(( 3{C3fC 3(C 3(( 3|C!$t ^5|C 3jCJ(( 5(C 3|C J|C^^^^^^^^^3^?fC!(C3|C]|C}|C!4C<4C3|C3|C3tC3|C3|C3|(}|C]4C3|C]|C3|C3|C 

LBT: CONT & AM2901 B , SO , SRAMR , PASS , ZA 

/ & SHIFT ROTATE ; SO : = WORD ADDRESS 

CONT 4 AM2901 BRE L , SO , RAMF , ADD , ZB 

/ & CARRYL 

/ & LODMSR 

/ & LDMAR 

/ & DREAD 

CONT & AM2901 

& CARRYH 
& LDMAR 
& AM2901 



/ 
/ 

INCB: 

/ 

SBT : 
/ 

/ 
/ 
/ 
/ 



ADD BASE REGISTER IF BASE 
START READ OF WORD 
PC,NOP,SUBR,ZB 



CCALL BYTESWAP 



CONT 



JZ 



; MAR := NEXT INST ADDR 
TAB, S4, RAMF, PASS, DZ 
& CONDMSR NSGN ; S4 : = WORD; 

SWAP IF EVEN BYTE ADDRE 
& AM2901 S4 , A , RAMF , NOTRS , DA 
& IMM H#FF00 ; 

& IFETCH ; MASK OFF UPPER BYTE AND F 

4 AM2901 , B, RAMF, ADD, ZB 

& CARRYH ; INCREMENT BYTE ADDRESS IN 



CONT 



LDCT ODBYTE 



CONT 



JSRP EVBYTE 



CONT 



JP 



INCB 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 

& 
& 
& 
& 
& 



AM2901 B, SO, SRAMR, PASS, ZA 
SHIFT ROTATE ; SO : = WORD ADDRESS 
AM2901 BREL , SO , RAMF , ADD , ZB 
CARRYL 
LODMSR 
LDMAR 
DREAD 



ADD BR IF BASE RELATIVE, 
START READ OF TARGET WORD 



AM2901 A, S4, RAMF , NOTRS, DA 

IMM H#FF0O ; MASK OFF UPPER BYTE 

AM2901 TAB, S5, RAMF, PASS, DZ 

CONDMSR NSGN ; S5 : = TARGET WORD 

CALL EVBYTE OR ODBYTE 
NOP.OR.AQ 



AM2901 S4,TAB 
LDMDOR 
DWRITE 



WRITE WORD 



AM2901 
CARRYH 



,PC,NOP,SUBR,ZB 
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2645 / & LDMAR ; 

2646 OOIBC / & IFETCH ; LOAD MAR ; FETCH ; INC B 

2647 ODBYTE: RET & AM2901 S5 , S5 , QREG , AND , DA 

2648 001BD / & I MM H#FFOO ; MASK TARGET BYTE 

2649 EVBYTE: CONT & AM2901 S5 , S5 , QREG , NOTRS , DA 

2650 001BE / & I MM H#FF00 ; MASK TARGET BYTE; 

2651 ;***** BYTESWAP S4 

2652 ;***** BYTESWAP S4 

2653 ;***** 

2654 BYTESWAP: CONT & AM2901 S4 , S4 , RAMA , PASS , DZ 

2655 001BF / & SPRD RL4 ; BYTE SWAP S4 

2656 L4M0RE: RET &AM2901 S4 , S4 , RAMA , PASS , DZ 

2657 001C0 / 4 SPRD RL4 ; 
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2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 



001C1 

001C2 

001C3 
001C4 
001C5 

001C6 
001C7 
001C8 
001C9 

001CA 
001CB 
001CC 
001CD 
001CE 
001CF 
001D0 



CBT : 

/ 

/ 

/ 

/ 

/ 
/ 
/ 

/ 
/ 
/ 



CBT 



COMPARE BYTES 



/ 
/ 
/ 

/ 
/ 

LC05 : 

/ 

/ 

/ 
/ 

/ 
/ 

CBTDONE 

/ 
/ 

INTCBT : 

/ 

/ 



CALL INITIAL 



PUSH 
CONT 
CONT 

CCALL BYTE SWAP 
CONT 

CONT 

CCALL BYTESWAP 
CONT 

LDCT CMWNEQ 

JRP LC05 

LDCT CBTDONE 

CJP INTCBT 
LOOP 

JP ENDCBT 

JRP INTCMW 



AM2901 BR , TABQ , QREG , PASS , DZ 
CARRYL 
LODUSR 
LDMAR 

DREAD ; SO = COUNT 

AM2901 A,S5,SRAMR,PASS,ZA 
LODMSR SWAPEO 
ENBLC & ENBLO 
SHIFT ROTATE 
AM2901 ,S5, NOP, PASS, ZB 
LODMSR 
LDMAR 

DREAD ; READ BYTE ARRAY 1 

AM2901 B,S5,SRAMR,PASS,ZA 
SHIFT ROTATE S5 = BYTE ADDR 2 

AM2901 TAB, S4.RAMF, PASS, DZ 
CONDMSR NSGN ; IF EVEN BYTE ADDRESS 
AM2901 ,S5, NOP, PASS, ZB 
LODMSR 
LDMAR 

DREAD ; READ BYTE ARRAY 2 



AM2901 S4,S3,RAMF,N0TRS,DA 
I MM H#FF00 ; S3 = BYTE 1 

AM2901 TAB, S4.RAMF, PASS, DZ 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
4 
& 
& 

& I MM HOFFOO 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 

& CARRYH 
& LDMAR 
& AM2901 
& CARRYH 
& CONDMSR NZ 



CONDMSR NSGN 



IF EVEN BYTE 



AM2901 S4,S2,RAMF,N0TRS,DA 

; S2 = BYTE 2 
AM2901 S2 , S3 , NOP , SUBR , AB 
CARRYL 



LODMSR 
ENBLO 
AM2901 
CARRYEXT 
CONDUSR Z 



, SO , RAMF 



COND REG := BYTE1 



SUBR.ZB 



BYTE 



IF STRINGS NOT EQUAL, JR 



AM2901 
CARRYH 

LODMSR SWAPUM 



A , RAMF , ADD , ZB 



INC 

,B, RAMF, ADD, ZB 



MSR = COUNT STAT 



IF INT PEND, JP 



AM2901 

CARRYH ; 
CONDEXT INTRPT ; INC B 
AM2901 A,S5,SRAMR,PASS,ZA 
CONDMSR Z ; 

SHIFT ROTATE ; SI = WORD ADDRESS 
AM2901 PC, A, RAMA, SUBR ,ZB 



SO , RAMF 



DONE: MAR 
SUBR ,ZB 



=PC,A=A-1 (FOR E 



FIX SO FOR INTCMW 



IF Z, 
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2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 



;****************************************^ 



001D1 



001D2 



001D3 



;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 



JSB MBT 
DEF COUNT 
NOP 

MOVES (COUNT) BYTES FROM A TO B 
COUNT IS A BYTE COUNT >0 

THE THIRD WORD IS USED TO SAVE THE INTERRUPTED COUNT 



* 

* 
* 
* 
* 
* 



;************************************^^ 



MBT : 

/ 

/ 

/ 

/ 

/ 
/ 



CALL INITIAL 



LDCT FILL 



JRP MBYTE 



& AM2901 BR , TABQ ,QREG , ADD ,DZ 
& CARRYL 
& LODUSR 
& LDMAR 

& DREAD ; SO := BYTE COUNT (BC) 

& AM2901 A,B,NOP,SUBR,AB 

& CARRYH ; CHECK FOR DEST=SRC+1 CORN 

& LODUSR ; 

& AM2901 , .NOP, ADD, AQ 

& CONDUSR NZ ; IF Z, FILL 
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2735 

2736 

2737 

2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 

2779 

2780 

2781 

2782 

2783 

2784 



001D4 



001D5 
001D6 
001D7 
001D8 
001D9 
001DA 
001DB 
001DC 

001DD 
001DE 

001DF 
001E0 

001E1 
001E2 



001E3 



001E4 



********************************* 

* * 

* SFB - SCAN FOR BYTE * 

* * 

************************************5| t **************)(c)({j) (!(: 5 (t - j tj)()| ( )( C )( C) ) C#J ( ())t 



SFB: 
/ 

/ 
/ 
/ 
/ 

/ 

/ 

/ 

/ 

/ 

SLOOP: 
/ 

/ 

/ 
/ 

/ 

/ 
/ 

SODD : 
/ 

/ 
/ 



/ 
/ 
/ 
/ 

/ 
/ 



CONT 

CALL INCS5 



CONT 
CONT 

CALL L4M0RE 

CONT 

CONT 

CJP SODD 
CONT 

CJP INTERRPT 

CJP FIXMAR 
CJP SKIP 

CONT 

CJP INTERRPT 

CJP FIXMAR 
CJP SKIP 



JP SLOOP 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



AM2901 B,S5,SRAMR,PASS,ZA 

SHIFT ROTATE ; S5 = WORD ADDRESS 

AM2901 BREL , S5 , RAMF , ADD , ZB 

CARRYL ; 

LODMSR ; 

LDMAR ; 

DREAD ; BREL, READ INITIAL WORD 

AM2901 A , SO , RAMF , NOTRS , DA 
IMM H#FFOO ; S0=TEST BYTE, ODD ADDR 

AM2901 A, SI, RAMF, AND, DA 

IMM H#FFOO ; S1=TERM BYTE, EVEN ADDR 

AM2901 A,S4,RAMA,PASS,DZ 



SPRD RL4 



S4 = SWAPPED A 



AM2901 S4 , S2 , RAMF , AND , DA 



IMM H#FFOO 



S2 



TEST BYTE, EVEN ADDR 



AM2901 S4, S3, RAMF, NOTRS, DA 

IMM H#FFOO ; S3 = TERM BYTE, ODD ADDR 

AM2901 TAB, S6, RAMF, PASS, DZ 

CONDMSR SGN ; S6=INIT WORD ; JP IF INIT 

AM2901 S6 , S4 , RAMF , AND , DA 



IMM H#FFOO 
AM2901 S2,S4,N0P,EX0R,AB 
CONDEXT INTRPT ; 
LUSRCOND 



S4 = BYTE TO TEST (EVEN) 



S4 



IF INT, 



; COMPARE S2 & 
AM2901 S1,S4,N0P,EX0R,AB 

CONDUSR Z ; COMPARE S1&S4;D0NE IF PRE 

AM2901 S6,B, RAMF, ADD, ZB 
& CARRYH 

& CONDUSR Z ; INC B ; DONE IF PREV COMP 

AM2901 S6.S4, RAMF, NOTRS, DA 
IMM H#FFOO ; S4 = BYTE TO TEST (ODD) 

AM2901 S0,S4,NOP,EXOR,AB 
CONDEXT INTRPT ; 



LUSRCOND 



COMPARE S0&S4 



IF INT, 



AM2901 S3,S4,N0P,EX0R,AB 



CONDUSR Z 



COMPARE S3&S4;IF PREV COM 



AM2901 S5,B, RAMA, ADD, ZB 



CARRYH 
CONDUSR Z 
LDMAR 
& CNMGO & DREAD 
& AM2901 ,S5,RAMF 
& CARRYH 
& LODMSR RESET 



INC B, 

IF PREV COMPARE , DONE , 
ELSE READ NEXT WORD 

ADD , ZB 
INC WORD ADDR 
LOOP, CLEAR MSR 
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2787 ;* * 

2788 ;* Word Manipulation Instructions * 

2789 ;* * 

2790 ;* * 

2791 ;* These are the old MEF Series interrupt ible instructions. * 

2792 ;* A zero word must follow the instruction which is used to * 

2793 ;* store a residual count. The from address is in the A reg , * 

2794 ;# the to address is in the B-reg and the count is pointed to * 

2795 ;* by the second word of the instruction. * 

2796 ;# * 

2798 

2799 MVW: CALL INITIAL & AM2901 BR , TABQ ,QREG , ADD , DZ 

2800 / & CARRYL ; 

2801 / & LODUSR ; 

2802 / & LDMAR ; 

2803 001E5 / & DREAD ; GET THE CORRECT COUNT IN 

2804 LMVW: CJP INTPEND & AM2901 A , SO , RAMA , SUBR , ZB 

2805 / & CARRYH ; DEC COUNT 

2806 / & CONDEXT INTRPT ; IF INT PENDING, INT 

2807 / & LODMSR ; MSR = COUNT STATUS 

2808 / & LDMAR ; MAR = SOURCE ADDRESS 

2809 001E6 / & CNMGO & DREAD ; READ SOURCE WORD IF NO IN 

2810 LDCT LMVW & AM2901 B , B , RAMA , ADD , ZB 

2811 / & CARRYH ; INC B 

2812 001E7 / & LDMAR ; MAR := DESTINATION ADDR; 

2813 CONT & AM2901 TAB , TAB , NOP , PASS , DZ 

2814 / & LDMDOR ; 

2815 001E8 / & DWRITE ; WRITE DESTINATION WORD; 

2816 JRP SKIP & AM2901 , A , RAMF , ADD , ZB 

2817 / & CARRYH ; INC A 

2818 001E9 / & CONDMSR Z ; IF C0UNT=0, DONE, ELSE LO 

2819 ;***** 

2820 ;***** CMW - COMPARE WORDS 

2821 ;****« 

2822 CMW: CALL INITIAL & AM2901 BR , TABQ , QREG , ADD , DZ 

2823 / & CARRYL ; 

2824 / & LODUSR ; 
2 825 / & LDMAR ; 

2826 001EA / & DREAD ; GET THE CORRECT COUNT IN 

2827 CONT & AM2901 , A , NOP , PASS , ZB 

2828 / & LODMSR SWAPEO ; 

2829 / & ENBLC & ENBLO ; 
2 830 / & LDMAR ; 

2831 001EB / & DREAD ; READ ARRAY 1 WORD 

2832 LCMW: CJP INTCMW & AM2901 , SO , RAMF , SUBR , ZB 

2833 / & CARRYH ; DEC COUNT 

2834 / & CONDEXT INTRPT ; IF INT PEND , JP 

2835 001EC / & LODMSR ; SAVE COUNT STATUS IN MSR 

2836 CONT & AM2901 B , B , RAMA , ADD , ZB 

2837 / & CARRYH ; INC B 

2838 / & LDMAR ; 
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2839 OOIED / 

2840 CJP ENDCMW 

2841 001EE / 

2842 ; 

2843 CONT 

2844 / 

2845 / 

2846 001EF / 

2847 CJP LCMW 

2848 / 

2849 / 

2850 / 

2851 001F0 / 

2852 CMWNEQ: CONT 

2853 / 

2854 / 

2855 / 

2856 001F1 / 

2857 CONT 

2858 / 

2859 / 

2860 001F2 / 

2861 RSTRE : CONT 

2862 / 

2863 001F3 / 

2864 JZ 

2865 001F4 / 

2866 ; 

2867 ENDCMW : CONT 

2868 / 

2869 / 

2870 001F5 / 

2871 CJP CMWNEQ 

2872 / 

2873 001F6 / 

2874 ENDCBT: JP RSTRE 

2875 / 

2876 / 

2877 001F7 / 



& DREAD ; READ ARRAY 2 WORD 

& AM2901 TAB , , QREG , PASS , DZ 

4 CONDMSR Z ; IF COUNT = 0, JP; 

QREG := ARRAY 1 WORD 
& AM2901 TAB , , NOP , SUBR , AQ 
& CARRYL ; 

& LODMSR ; COMPARE THE TWO WORDS. 

& ENBLO ; MSR : = RESULT OF COMP 

& AM2901 PC , A , RAMF , ADD , ZB 

& CARRYEXT ; IF WORDS EQUAL, 

& CONDMSR Z ; INC A; READ NEXT WORD; 

& LDMAR ; ELSE FALL THROUGH 

& CMGO & DREAD ; (NO INC, NO READ) 

& AM2901 PC, PC, RAMF, ADD, DA 

& CARRYEXT ; 

& CONDMSR ; ! ! CONDMSR SGT ! ! 

& I MM H#0001 ; 

& LDMAR ; LOAD PC, MAR WITH PROPER 

& AM2901 SO, B, RAMF, ADD, AB 

& CARRYL ; 

& LODMSR SWAPEO ; RESTORE 0 

& ENBLC & ENBLO ; B POINTS PAST END OF ARRA 
& AM2901 ,S1,SRAML,PASS,ZB 
& SHIFT ROTATEC ; 

& IFETCH ; RESTORE E; FETCH NEXT_INS 

& AM2901 , PC , RAMF , ADD , ZB 

& CARRYH ; INCREMENT PC 

& AM2901 TAB, , NOP, SUBR, AQ 
& CARRYL ; 

& LODMSR ; COMPARE THE TWO WORDS 

4 ENBLO ; MSR : = RESULT OF COMP 

& AM2901 , PC, RAMF, PASS, ZB 
& CONDMSR NZ ; 

& LDMAR ; LOAD MAR WITH "=" EXIT 

& AM2901 , A , RAMF , ADD , ZB 

& CARRYH ; INC A 

& LODMSR SWAPEO ; RESTORE 0 

& ENBLC & ENBLO ; 
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2879 
2880 
2881 
2882 
2883 



Word Manipulation Subroutines 

INITIAL - Initialize SO with the proper word count 



2884 




INITIAL: 


CCALL MRGIND 


& 


AM2901 PC,S1,SRAMR , PASS , ZA 


2885 




/ 




& 


CONDUSR SGN ; ! ! SHIFT CODE IS 0100 ! ! 


2886 


001F8 


/ 




& 


LDMAR ; RESOLVE COUNT; SAVE MC IN 


2887 






CONT 


& 


AM2901 TAB,SO,RAMF,PASS,DZ 


2888 




/ 




& 


LODUSR ; 


2889 


001F9 


/ 




& 


DREAD ; SO := COUNT, READ RESIDUA 


2890 






CJP SKIP 


& 


AM2901 , PC , RAMF , ADD , ZB 


2891 




/ 




& 


CARRYH ; 


2892 


001FA 


/ 




& 


CONDUSR Z ; INC PC; IF COUNT =0, EXI 


2893 






CONT 


& 


AM2901 TAB, ,QREG, PASS, DZ 


2894 


001FB 


/ 




& 


LODUSR ; QREG := RESIDUAL 


2895 






CRET 


& 


AM2901 ,S2 , RAMF , AND, ZQ 


2896 


001FC 


/ 




& 


CONDUSR Z ; S2:=0 ; RETURN IF NO RESI 


2897 






RET 


& 


AM2901 S2, SO, RAMA, PASS, ZQ 


2898 




/ 




& 


LDMDOR ; 


2899 


001FD 


/ 




& 


DWRITE ; ZERO RESIDUAL; SO := COUN 


2900 












2901 






INTPEND - Interrupt 


pending during block type instruction 


2902 












2903 




INTCMW: 


CONT 


& 


AM2901 ,,N0P,ADD,AQ 


2904 




/ 




& 


LODMSR SWAPEO ; RESTORE 0 


2905 


001FE 


/ 




& 


ENBLC & ENBLO ; 


2906 






CONT 


& 


AM2901 ,S1,SRAML,PASS,ZB 


2907 


001FF 


/ 




& 


SHIFT ROTATEC ; RESTORE E 


2908 




INTPEND: 


CONT 


& 


AM2901 ,PC,RAMF,SUBR,ZB 


2909 




/ 




& 


CARRYH ; 


2910 


00200 


/ 




& 


LDMAR ; BACK UP PC 


2911 






JP INTERRPT 


& 


AM2901 ,SO,NOP,ADD,ZB 


2912 




/ 




& 


CARRYH ; 


2913 




/ 




& 


LDMDOR ; 


2914 


00201 


/ 




& 


DWRITE ; WRITE RESIDUAL COUNT TO W 
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2916 


-^^C - -^(C 3(C 3fc ^tt^ 3(C -^t^ 3^3(C3(C3(C3(C3jC3|C#(C3(C3|C3|C^jC5jC3jC 3|C3|C3(C 3(C3|C!^C3jC3^£3(C5(C3^I5jC3(C3(C3jC 


2917 


;* 








* 


2918 


;* 


DOUBLE INTEGER OPERATIONS 


* 


2919 


;* 








* 


2920 


;* 


- Calling sequence 






* 


2921 


;* 








* 


2922 


;* 


.DIN, . DDE 4 . DNG 


All others 


* 


2923 


;* 








* 


2924 


;* 


JSB .OPCODE 




JSB .OPCODE 


* 


2925 


;* 






DEF OPERAND 


* 


2926 


;* 








* 


2927 


;* 


- Operands are stored in memory with most significant 


* 


2928 


;* 


word in lower address, least significant word in upper 


* 


2929 


;* 


address : 






* 


2930 


;* 








* 


2931 


;* 


JSB .DAD 




+ >0CT MSW address 


* 


2932 


;* 


DEF *--- 




---+ OCT LSW address + 1 


* 


2933 


,* 








* 


2934 


* - 


- The operations performed are. 


* 


2935 


* 








* 


2936 


* 


. DAD ( A , B ) 




= ( A , B ) + (OPERAND) 


* 


2937 


* 


. DSB ( A , B ) 




= (A,B) - (OPERAND) 


* 


2938 


* 


. DSBR ( A , B ) 




= (OPERAND) - (A , B ) 


* 


2939 


* 


.DNG ( A , B ) 




= " ( A , B ) 


* 


2940 


* 


.DIN ( A , B ) 




= ( A , B ) + 1 


* 


2941 


* 


.DDE ( A , B ) 




= ( A , B ) - 1 


* 


2942 


* 


DIS (OPERAND) := (OPERAND) + 1, SKIP IF ZERO 


* 


2943 


* 


. DDS (OPERAND) := (OPERAND) - 1, SKIP IF ZERO 


* 


2944 


* 


.DCO IF ( A , B ) = (OPERAND) THEN PC : = PC + 1 


* 


2945 


* 


IF ( A , B ) < (OPERAND) THEN PC : = PC + 2 


* 


2946 


* 


IF ( A , B ) > (OPERAND) THEN PC : = PC + 3 


* 


2947 


* 








* 


2948 


* - 


E Reg can be set 


but NEVER cleared as follows: 


* 


2949 


* 








* 


2950 


* 


.DAD E set 


if an unsigned carryout occurs 


* 


2951 


* 


DSB E set 


if an unsigned borrow occurs 


* 


2952 


* 


. DSBR E set 


if an unsigned borrow occurs 


* 


2953 


* 


. DNG E set 


if ( A , B ) = 0 


* 


2954 


* 


.DIN E set 


if ( A , B ) = -1 


* 


2955 ; 


* 


.DDE E set 


if ( A , B ) = 0 


* 


2956 ; 


* 








* 


2957 ; 


* - 


0 Reg is cleared 


and can be set as follows: 


* 


2958 ; 


* 








* 


2959 ; 


* 


.DAD 0 set 




f carry into sign XOR carry out of sign 


* 


2960 ; 


* 


. DSB 0 set 




f carry into sign XOR carry out of sign 


* 


2961 ; 


* 


. DSBR 0 set 




f carry into sign XOR carry out of sign 


* 


2962 ; 


* 


. DNG 0 set 




f (A ,B) = 2**31 


* 


2963 ; 


* 


.DIN 0 set 




f ( A , B ) = 2**31 - 1 


* 


2964 ; 


* 


.DDE 0 set 




f ( A , B ) = 2**31 


* 


2965 ; 


* 








* 


2966 ; 


************************************* 


2967 DBLIMSW: EQU S3 




; DOUBLE INTEGER SCRATCH REGS 




2968 DBLILSW: EQU S7 
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2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 



00202 



00203 



00204 



00205 



00206 



00207 
00208 

00209 



0020A 



0020B 



. DAD - DOUBLE ADD 



.DAD: 



/ 
/ 
/ 
/ 

/ 
/ 

/ 
/ 
/ 
/ 

. DSB : 

/ 

/ 

/ 

/ 

/ 
/ 

/ 
/ 
/ 
/ 

DBLIE 
/ 

/ 
/ 



CALL DIARG 



CONT 



JP DBLIE 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



GET OPERAND 



AM2901 BR , TABQ ,QREG , ADD , DZ 
CARRYL 
LODUSR 
LDMAR 
DREAD 

AM2901 DBLILSW , B , RAMF , ADD , AB 
CARRYL ; 

LODUSR ; ADD LOWER WORDS 

AM2901 DBLIMSW , A , RAMF , ADD , AB 
CARRYREG 
LODMSR CREG 
ENBLO 
IFETCH 



ADD UPPER WORDS + CARRY 



CALL DIARG 



CONT 



CONT 



& 


AM2901 


BR , TABQ , QREG , ADD , DZ 


& 


CARRYL 






& 


LODUSR 






& 


LDMAR 






& 


DREAD 




GET OPERAND 


& 


AM2901 


DBLI LSW , B , RAMF , SUBR , AB 


& 


CARRYL 






& 


LODUSR 




B = B-LSW 


& 


AM2901 


DBLIMSW , A , RAMF , SUBR , AB 


& 


CARRYREG 




& 


LODMSR 


CI 




& 


ENBLO 






& 


IFETCH 




A = A - MSW 


& 


AM2901 


, , NOP , ADD , AQ 


& 


CONDUSR 


NC 


IF NO CARRY, 


& 


AM2901 


, , NOP.ADD.AQ 


& 


LODMSR 


SET 




& 


ENBLC 







CJP FETCH 
JZ 



. DSBR - DOUBLE SUBTRACT REVERSE 



NOTE: Sense of carry is adjusted for DBLIE test 



CARRY 



JP 



0020C 



.DSBR : 

/ 

/ 

/ 

/ 

/ 
/ 

/ 
/ 
/ 
/ 



CALL DIARG 



CONT 



JP DBLIE 



& AM2901 BR, TABQ, QREG, ADD, DZ 
& CARRYL 
& LODUSR 
& LDMAR 

& DREAD ; ; GET OPERAND 

& AM2901 DBLILSW, B, RAMF , SUBS ,AB 
& CARRYH ; 
& LODUSRCI ; B := B - LSW 

& AM2901 DBLIMSW, A, RAMF , SUBS, AB 
& CARRYREG 
& LODMSR CI 
& ENBLO 
& IFETCH 



MSW - CARRY 
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3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 



0020D 



0020E 



0020F 



00210 



00211 



00212 



. DNG : 
/ 

/ 

.DIN: 

/ 

/ 

/ 
/ 
/ 
/ 



. DDE : 

/ 

/ 

/ 
/ 
/ 
/ 



DNG - DOUBLE NEGATE 
DIN - DOUBLE INCREMENT 



CONT 
CONT 

CONT 

JP 



& AM2901 
& SPNOP 
& AM2901 
& SPNOP 



, A , RAMF , EXNOR , ZB 

; ONES COMPLEMENT A & B 
B, RAMF, EXNOR, ZB 



DBLIE 



& AM2901 , B, RAMF , ADD, ZB 
& CARRYH ; 
& LODUSR ; B := 

& AM2901 , A , RAMF , ADD , ZB 
& CARRYREG 
& LODMSR CREG 
& ENBLO 
& IFETCH 



B + 1 



A + CARRY OUT 



DDE - DOUBLE DECREMENT 



CONT 



JP 



& AM2901 , B , RAMF , SUBR , ZB 
& CARRYH ; 



DBLIE 



& 
& 
& 
& 
& 
& 



LODUSR 
AM2901 ,A 
CARRYREG 
LODMSR CI 
ENBLO 
IFETCH 



; B := B 
RAMF , SUBR , ZB 



CARRY, UC := BOR 
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LINE 


ADDR 


STATEMENT 












3053 
















3054 






DIS - 


DOUBLE 


INCREMENT AND 


SKIP IF ZERO 


3055 
















3056 




DIS : 


CALL 


DIARG 


& 


AM2901 


BR , TABQ ,QREG , ADD , DZ 


3057 




/ 






& 


CARRYL 




3058 




/ 






& 


LODUSR 




3059 




/ 






& 


LDMAR 




3060 


00213 


/ 






& 


DREAD 


; GET OPERAND INTO SCRATCH 


3061 






CONT 




& 


AM2901 


.DBLILSW , RAMF , ADD , ZB 


3062 




/ 






& 


CARRYH 




3063 


00214 


/ 






& 


LODUSR 


; INC LSW 


3064 






JP 


. DSKIPZ 


& 


AM2901 


S2 , DBLIMSW , RAMA , ADD , ZB 


3065 




/ 






& 


CARRYUC 


; PROPAGATE CARRY 


3066 


00215 


/ 






& 


LDMAR 


; LDMAR WITH LSW ADDRESS 


3067 
















3068 






DDS - 


DOUBLE 


DECREMENT AND 


SKIP IF ZERO 


3069 
















3070 




. DDS : 


CALL 


DIARG 


& 


AM2901 


BR , TABQ , QREG , ADD , DZ 


3071 




/ 






& 


CARRYL 




3072 




/ 






& 


LODUSR 




3073 




/ 






& 


LDMAR 




3074 


00216 


/ 






& 


DREAD 


; GET OPERAND INTO SCRATCH 


3075 






CONT 




& 


AM2901 


, DBLILSW , RAMF , SUBR , ZB 


3076 




/ 






& 


CARRYH 




3077 


00217 


/ 






& 


LODUSRCI ; DEC LSW 


3078 






CONT 




& 


AM2901 


S2 , DBLIMSW , RAMA , SUBR , ZB 


3079 




/ 






& 


CARRYUC 


; PROPAGATE BORROW 


3080 


00218 


/ 






& 


LDMAR 


; LDMAR WITH LSW ADDR 


3081 




DSKIPZ : 


CONT 




& 


AM2901 


DBLILSW , TAB , NOP , PASS , ZA 


3082 




/ 






& 


LDMDOR 




3083 


00219 


/ 






& 


DWRITE 


; WRITE LSW 


3084 






CONT 




& 


AM2901 


,S2, NOP, SUBR, ZB 


3085 




/ 






& 


CARRYH 




3086 


0021A 


/ 






& 


LDMAR 


; ADDRESS OF MSW 


3087 






CONT 




& 


AM2901 


DBLIMSW , TAB , NOP , PASS , ZA 


3088 




/ 






& 


LDMDOR 




3089 


0021B 


/ 






& 


DWRITE 


; WRITE MSW 


3090 






CONT 




& 


AM2901 


S3, PC, NOP, SUBR, ZB 


3091 




/ 






& 


CARRYH 




3092 


0021C 


/ 






& 


LDMAR 


; FIX MAR FOR SKIFZ 


3093 






JP 


SKIFZ 


& 


AM2901 


DBLIMSW, DBLILSW, NOP, OR ,AB 


3094 


0021D 


/ 






& 


LODUSR 


; SKIP IF ZERO 
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3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 

3113 

3114 

3115 

3116 

3117 

3118 

3119 

3120 

3121 

3122 

3123 

3124 

3125 

3126 

3127 

3128 

3129 

3130 

3131 

3132 

3133 

3134 

3135 

3136 

3137 

3138 

3139 

3140 

3141 

3142 

3143 

3144 

3145 

3146 

3147 

3148 



0021E 



0021F 



00220 



00221 



00222 
00223 



00224 
00225 
00226 
00227 
00228 



/ 
/ 

DMP1 : 

/ 

/ 
/ 
/ 
/ 



^tt^ ^l^ - ^0^- 3fC 3fC 3(C ?fC3|C3jC3|C 3|C3|C^C }|C3f(34C}|C3fC 2f(3|C2t(2fC JfOfC2|(3fC3fO|C 

* * 

* Double Integer Multiply. * 

* * 

* JSB . DMP * 

* DEF OPERAND * 

* * 



DMP: CALL DIARG & AM2901 BR , TABQ , QREG , ADD , DZ 

/ & CARRYL 

/ & LODUSR 

/ & LDMAR 

/ & DREAD ; GET OPERAND 

CONT & AM2901 B , SO , RAMF , PASS , ZA 

/ & LODMSR RESET ; 

/ & ENBLO ; 

LDCT H#OOF & AM2901 ,A,NOP,OR,ZB 

/ & CARRYH ; 

/ & LODMSR ; 

CJP DMP1 4 AM2901 S7 , S3 , NOP , OR , ZB 

/ & CARRYH ; 

/ & CONDUSR UGT ; NOT ZERO OR ONES 



( A , B ) is in [-2**16 ,+2**16) 
CONT 

JP DMP2 



& AM2901 S3, S7, QREG, PASS, ZB 
&. SPNOP ; 
& AM2901 S3, A, RAMF, PASS, ZA 
& SPNOP ; 



(S3.S7) is in [ -2**16 , +2**16 ) . 
CJP DMP9 
CONT 



(or overflow) 



CONT 
CONT 
CONT 

At this point 



& AM2901 S7, SO, RAMF, PASS, ZA 
& CONDUSR UGT ; IF NOT ZERO OR ONES 
& AM2901 , S3, NOP, PASS, ZB 
4 LODMSR ; 
& AM2901 A, S3, RAMF, PASS, ZA 
& SPNOP ; 
& AM2901 B ,S7 , RAMF , PASS , ZA 
& SPNOP ; 
& AM2901 ,B, QREG, PASS, ZB 
& SPNOP ; 



DMP2 : 
/ 



Mn = multiplier upper (sign only) 

R4 = multiplier lower. 

S3 = A = multiplicand upper. 

S7 = Q = multiplicand lower. 



Form lower product in (S6.Q) (Counter = 15) 
CPUSH 



& AM2901 , S6 , SRAMQR , AND , ZB 
& CONDMSR OVR ; NEVER LOAD COUNTER 
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3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
3183 
3184 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 



00229 

0022A 
0022B 



0022C 

0022D 

0022E 

0022F 
00230 



00231 

00232 
00233 



00234 
00235 

00236 



00237 



00238 



DMP3 : 

/ 

/ 

/ 

/ 
/ 



DMP9 : 

/ 

/ 

/ 
/ 



RFCT 



CONT 



& SHIFT B#0110 ; 

& AM2901 MPY8 ,S6 , SRAMQR , ADD ,AB 

& CARRYL ; 

& SHIFT B#1011 ; 

& AM2901 ,B,RAMF,PASS,ZQ 

& SPNOP ; 



Form upper product in (S4,Q); add middle words. 

LDCT H#00F & AM2901 , SO , QREG , PASS , ZB 

& SPNOP ; 
CPUSH & AM2901 , S4 , SRAMQR , AND , ZB 

& CONDMSR OVR ; NEVER LOAD COUNTER 

& SHIFT B#0000 ; Load QOBUF . 
RFCT & AM2901 MPY , S4 , SRAMQR , ADD , AB 

& CARRYL 

& SHIFT B#1110 
CONT & AM2901 S6 , A , RAMF , ADD , AQ 

& CARRYL ; 

& LODUSR ; 
CONT & AM2901 S7 , S4 , RAMF , ADD , ZB 

& CARRYUC ; 

If multiplier upper is -1, subtract multiplicand. 

CJP DMP3 & AM2901 S7 , , NOP , ADD , AQ 

& CONDMSR NSGN 
CONT & AM2901 S7 , A , RAMF , SUBR , AB 

& CARRYL ; 

& LODUSR ; 
CONT & AM2901 S3 , S4 , RAMF , SUBR , AB 

& CARRYNUC ; 

Check for overflow: upper 17 bits must match. 

CONT & AM2901 , S4 , NOP , OR , ZB 

& CARRYH ; 

& LODUSR ; 
CJP DMP9 & AM2901 A , S4 , NOP , EXOR , AB 

& CONDUSR UGT ; IF NOT ZERO OR ONES 
CJP FETCH & AM2901 ,,NOP,ADD,AQ 

& CONDUSR NSGN ; 

& CMGO & IFETCH ; 

Overflow. Return (77777,177777) and overflow set. 

CONT & AM2901 A , A , SRAMR , EXNOR , AB 

& IFETCH 

& SHIFT B#0000 
JZ & AM2901 B,B, RAMF, EXNOR, AB 

& LODMSR SET 

& ENBLO 
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3203 ;* * 

3204 ;* Double integer divide. (And divide reverse) * 

3205 ;* * 

3206 ;* JSB . DDI ( . DDIR ) * 

3207 ;* DEF OPERAND * 

3208 ;* * 

3209 ; **************************************^ 

3210 ; 

3211 ; Get operands. For .DDIR, swap them. 

3212 ; 

3213 .DDI: CALL DIARG 4AM2901 BR , TABQ , QREG , ADD , DZ 

3214 / & CARRYL ; 

3215 / & L0DUSR ; 

3216 / & LDMAR ; 

3217 00239 / 4 DREAD ; 

3218 JP DDI01 & AM2901 A , S5 , RAMF , PASS , ZA 

3219 0023A / 4 LODUSR ; 

3220 .DDIR: CALL DIARG & AM2901 BR , TABQ , QREG , ADD , DZ 

3221 / 4 CARRYL ; 

3222 / & LODUSR ; 

3223 / 4 LDMAR ; 

3224 0023B / 4 DREAD ; 

3225 CONT & AM2901 S7 , S5 , RAMF , PASS , ZA 

3226 0023C / & SPNOP ; 

3227 CONT 4 AM2901 B , S7 , RAMF , PASS , ZA 

3228 0023D / & SPNOP ; 

3229 CONT & AM2901 S5 , B , RAMF , PASS , ZA 

3230 0023E / & SPNOP ; SWAPERANDS 

3231 CONT 4 AM2901 S3 , S5 , RAMF , PASS , ZA 

3232 0023F / & SPNOP ; 

3233 CONT 4 AM2901 A , S3 , RAMF , PASS , ZA 

3234 00240 / 4 SPNOP ; 

3235 CONT 4 AM2901 S5 , A , RAMF , PASS , ZA 

3236 00241 / & LODUSR ; 

3237 ; 

3238 ; Take absolute value of operands. R9 = sign diff. 

3239 ; 

3240 DDI01: CJP DDI02 & AM2901 S3 , S5 , RAMF , EXOR , AB 

3241 00242 / & CONDUSR NSGN ; 

3242 CONT 4AM2901 , B , RAMF , SUBS , ZB 

3243 / & CARRYH ; 

3244 00243 / 4 LODUSR ; 

3245 CONT 4AM2901 , A , RAMF , SUBS , ZB 

3246 00244 / 4 CARRYUC ; 

3247 DDI02: CONT 4AM2901 , S3 , NOP , PASS , ZB 

3248 00245 / 4 LODUSR ; 

3249 CJP DDI03 4 AM2901 , S3 , NOP , PASS , ZB 

3250 00246 / 4 CONDUSR NSGN ; 

3251 CONT & AM2901 , S7 , RAMF , SUBS , ZB 

3252 / 4 CARRYH ; 

3253 00247 / 4 LODUSR ; 

3254 CONT 4 AM2901 , S3 , RAMF , SUBS , ZB 
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3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 



00248 
00249 
0024A 
0024B 



0024C 

0024D 
0024E 
0024F 

00250 
00251 
00252 
00253 



/ 

DDI03 
/ 

/ 

/ 



& CARRYUC 

CJP DDI04 & AM2901 , S7 , NOP , PASS , ZB 

& CONDUSR NZ ; 
CJP DMP9 & AM2901 , S7 , NOP , PASS , ZB 

& CONDUSR Z ; Divide by zero. 

CJP DDI04 & AM2901 S7 , A , QREG , PASS , ZB 

& CONDUSR SGN ; 

Divisor is in [1,32767]. Use two 2/1 divides. 
First divide generates 15 bits, which are put in A. 
Second generates 17 bits, which are put in A<0> & B. 

PUSH H#00F & AM2901 S7 , SO , RAMF , AND , ZQ 

& DIVCOND ; 
RFCT & AM2901 S7 , DIV , SRAMQL , SUBR , AB 

& CARRYL 

& DIVUCOND 

& SHIFT B#llll 
CONT & AM2901 , A , RAMF , PASS , ZQ 

& LODMSR SWAPUM ; 
PUSH H#010 & AM2901 S7 , B , QREG , PASS , ZB 

& CONDMSR SGN ; 
RFCT & AM2901 S7 , DIV , SRAMQL , SUBR , AB 

& CARRYL 

& DIVUCOND 

& SHIFT B#llll 
CONT & AM2901 , B , RAMF , EXNOR , ZQ 

& LODMSR SWAPUM ; (IS THE LODMSR REALLY NEC 
CONT & AM2901 , SO , SRAMQR , PASS , ZB 

& SHIFT B#llll 
JP DDI06 & AM2901 , A , SRAMQL , PASS , ZB 

& SHIFT B#llll ; 
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3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 
3327 



00254 

00255 
00256 
00257 

00258 

00259 
0025A 

0025B 



0025C 
0025D 

0025E 



DDI04: 

/ 

/ 

/ 
/ 

/ 

/ 

/ 
/ 
/ 

/ 
/ 



DDI05 : 

/ 
/ 

/ 

/ 
/ 



Divisor > 32767. Use one 3/2 divide loop, with 
(S4.S0.Q) / (S3.S7). S6 has .not. S3, so that an 
ADD is used instead of a SUBR , which has the wrong 
carry-in; CARRYNUC would conflict with DIVCOND. 
Note that Mc is saved in Mo across this loop. 

C0NT & AM2901 , S4 , RAMF , AND , ZQ 

& LODMSR SWAPEO ; Save Mc 

& ENBLC & ENBLO 
CONT & AM2901 A , SO , RAMF , PASS , ZA 

& LODMSR RESET ; Mc , Mn = 0 

& ENBLC ; 
CONT & AM2901 , B , QREG , PASS , ZB 

& SPNOP 

PUSH H#010 & AM2901 S3 , S6 , RAMF , EXNOR , ZA 

& CONDMSR C ; 
CJP DDI05 & AM2901 S7 , DIV , SRAMQL , SUBR , AB 

& CARRYL 

& CONDMSR C 

& SHIFT BttllOO 
RFCT & AM2901 S6 , S4 , SRAML , ADD , AB 

& UCDIVCND ; 

& SHIFT B#1001 ; 
CONT & AM2901 A , A , SRAMQL , EXNOR , AB 

& SHIFT B#1100 ; 
JP DDI06 & AM2901 , B , RAMF , EXNOR , ZQ 

& LODMSR SWAPEO ; 

& ENBLC & ENBLO ; 



*** NOTE *** 
DDI05 MUST ALIGN WITH 4 LSBITS 



B*1100 



RFCT 

CONT 
CONT 



& AM2901 S3, S4, SRAML, ADD, AB 

& UCDIVCND ; 

4 SHIFT B#1001 ; 

& AM2901 A, A, SRAMQL, EXNOR, AB 

& SHIFT B#1100 ; 

& AM2901 , B, RAMF, EXNOR, ZQ 

& LODMSR SWAPEO ; 

& ENBLC & ENBLO ; 
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3329 



If operand signs differed, negate result. 



3330 






If not 


, check 


for overflow 


(-2**31 / -1) . 


3331 
















3332 




DDI06 : 


LDCT 


DMP9 


& 


AM2901 


,S5,N0P,ADD,ZB 


3333 




/ 






& 


CARRYL 




3334 




/ 






& 


LODMSR 


; Mo = 0 


3335 


0025F 


/ 






& 


ENBLO 




3336 






CJP 


DDI08 


& 


AM2901 


, A , RAMF , EXNOR , ZB 


3337 


00260 


/ 






& 


CONDMSR 


NSGN 


3338 






CONT 




& 


AM2901 


, B, RAMF , SUBS, ZB 


3339 




/ 






& 


CARRYH 




3340 




/ 






& 


LODUSR 




3341 


00261 


/ 






& 


IFETCH 




3342 






JZ 




& 


AM2901 


, A , RAMF , SUBS , ZB 


3343 


00262 


/ 






& 


CARRYUC 




3344 




DDI08 : 


JRP 


FETCH 


& 


AM2901 


, , NOP.ADD.AQ 


3345 




/ 






& 


CONDUSR 


NSGN ; 


3346 


00263 


/ 






& 


CMGO & 


IFETCH ; 
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3348 ; ***************************^^ 

3349 ;* * 

3350 ;* .DCO - DOUBLE INTEGER ARITH COMPARE * 

3351 ;* * 

3352 ;* JSB .DCO * 

3353 ;* DEF OPERAND * 

3354 ;* JMP EQUAL IF ( A , B ) == (OPERAND) * 

3355 ;* JMP LESS_THAN IF (A,B) < (OPERAND) * 

3356 ;* JMP GREATER_THAN IF ( A , B ) > (OPERAND) * 

3357 ;* * 

3358 ;* * 

3359 ;* - Both operands are considered 32 bit 2's complement numbers * 

3360 ;* * 

3361 ;* - Algorithm is do a signed compare of upper words. If equal * 

3362 ;* then do an unsigned compare of lower words. # 

3363 ; * * 

3364 ; **********************************^^ 

3365 .DCO: CALL DIARG 4AM2901 BR , TABQ.QREG , ADD ,DZ 

3366 / 4 CARRYL ; 

3367 / 4 LODUSR ; 

3368 / 4 LDMAR ; 

3369 00264 / 4 DREAD ; 

3370 CJP DCOEQ 4 AM2901 A , DBLIMSW , NOP , SUBS , AB 

3371 / 4 CARRYH ; 

3372 / & CONDUSR Z ; 

3373 00265 / 4 SEQFRZ ; IF EQUAL, TEST LOWER BITS 

3374 . DCOLT : JP INCPC 4 AM2901 PC , PC , RAMF , ADD , ZB 

3375 / 4 CAR RYE XT ; 

3376 / 4 CONDUSR SGT ; 

3377 / 4 LDMAR ; 

3378 00266 / 4 IFETCH ; IF GREATER THAN, INC PC 

3379 ; 

3380 ; DO UNSIGNED COMPARE OF LOWER WORDS 

3381 ; 

3382 DCOEQ: CJP SKIFNZ 4 AM2901 B , DBLILSW , NOP , SUBS , AB 

3383 / 4 CARRYH ; IF LSW'S COMPARE, JP TO 

3384 / 4 CONDUSR Z ; SKIFNZ, WHICH WILL *NOT* 

3385 00267 / 4 SEQFRZ ; SKIP, BUT WILL IFETCH 

3386 JP INCPC 4 AM2901 PC , PC , RAMF , ADD , ZB 

3387 / 4 CARRYEXT ; 

3388 / 4 CONDUSR UGT ; 

3389 / 4 LDMAR ; 

3390 00268 / 4 IFETCH ; ADD ONE TO PC IF GREATER 
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3392 ; ************************************ 

3393 ;* * 

3394 ;* DIARG - DOUBLE INTEGER ARGUMENT LOAD * 

3395 ;* * 

3396 ;* - Operand is loaded into DBLIMSW and DBLILSW reg pair * 

3397 ; * - Assumes first argument read in progress * 

3398 ;* * 

3399 ; ***************************************************************** 

3400 DIARG: CCALL READRES &AM2901 ,,NOP,ADD,AQ 

3401 00269 / & CONDUSR SGN ; RESOLVE OPERAND 

3402 CONT & AM2901 , S2 , RAMF , ADD , ZQ 

3403 / & CARRYH ; 

3404 0026A / & LDMAR ; S2=MAR= LSW ADDRESS 

3405 CALL FIXPC & AM2901 TAB , DBLIMSW , RAMF , PASS ,DZ 

3406 0026B / & DREAD ; DBLIMSW := MSW 

3407 RET & AM2901 TAB , DBLI LSW , RAMF , PASS ,DZ 

3408 0026C / & SPNOP ; DBLILSW := LSW 
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3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 

3428 

3429 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

3438 

3439 

3440 

3441 

3442 

3443 

3444 

3445 

3446 

3447 

3448 

3449 

3450 

3451 

3452 

3453 

3454 

3455 

3456 

3457 

3458 

3459 

3460 

3461 

3462 



0026D 



0026E 



0026F 



00270 



00271 



00272 



00273 



00274 



00275 



00276 



************************************ 



.SETP - PUT (A:=A+1) IN (B:=B+1) (COUNT) TIMES, WHERE 
COUNT IS THE SECOND WORD OF THE INSTRUCTION 
COUNT IS *NOT* A/B ADDRESSABLE 

ON RESTART FROM INTERRUPT, A CONTAINS THE RESIDUAL 
COUNT (MINUS 1) , AND B CONTAINS THE RESIDUAL ADDRESS 
WITH BIT 15 SET. 



* 
* 
* 
* 
* 
* 
* 
* 
* 



*******************#*************************)(C**********))C5| t )( < )| C ) )[ j ) ( # )(( ) K 



.SETP: 

/ 

/ 

/ 

/ 

/ 
/ 
/ 

/ 
/ 
/ 

/ 
/ 
/ 

/ 
/ 

SETPL : 

/ 

/ 

/ 

/ 

/ 
/ 

/ 
/ 
/ 



/ 
/ 
/ 

INTD : 
/ 



CALL READIND 



CONT 



CJP INTD 



LDCT 



CJP SKIP 



CJP SETPINT 



RPCT SETPL 
LDCT 

CJP SETPL 
JZ 



& 

& 

& 

& 

& 

& 

& 

& 

& 

A 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 



GET COUNT 
B , B , SRAMR , ADD , AB 



UC 



BIT 15, CLEAR BIT 1 



,S4,RAMF 



IF BASE RELATIVE, ADD BR 
JP IF RESTARTING FROM INT 

SUBS.DZ 



R4=C0UNT-1; CNTR=LOW NIBB 



AM2901 BR , TABQ , QREG , ADD , DZ 
CARRYL 
LODUSR 
LDMAR 
DREAD 
AM2901 
CARRYL 
LODUSR 

SHIFT B#0000 

AM2901 BREL , B , RAMF , ADD , ZB 
CARRYL 
CONDUSR C 
LDMAR 
AM2901 
CARRYL 
LUSRCOND 
SPETC LDCTY 

AM2901 B , S4 , QREG , ADD , AB 
CARRYH 
CONDUSR SGN 
AM2901 A, A, RAMA 
CARRYH 

CONDEXT INTRPT 
LDMDOR 
DWRITE 
AM2901 

CARRYH ; 

LDMAR ; LOOP 'TIL DONE 

AM2901 S4,S4,RAMF,SUBR,DA 
CARRYH 
IMM H#000F 

LUSRCOND ; DO THE NEXT 16 TABLE ENTR 

AM2901 PC, PC, NOP, ADD, AQ 
CONDUSR NSGN ; CHECK TO SEE IF DONE 
AM2901 PC, PC, RAMA, ADD, ZB 
CARRYH 
LDMAR 
IFETCH 



DONE IF NEGATIVE; 
ADD , ZB 



Q=TERMI 



WRITE TABLE ENTRY 
, B, RAMF , ADD, ZB 



IF IN 



CONT 



& AM2901 B,B, RAMA, ADD, ZB 
& CARRYH ; 
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3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3482 



00277 



00278 



00279 



0027A 



0027B 



0027C 



/ 
/ 

/ 
/ 
/ 

/ 
/ 
/ 

/ 

SETPINT: 

I 

I 

I 
/ 
/ 



LDCT 



CJP SKIP 



JP SETPL 



LDCT INTERRPT 



JRP 



& LDMAR ; 

& DREAD ; READ OLD A VALUE 

& AM2901 A,S4,RAMF,SUBR,ZA 
& CARRYH ; 
& LUSRCOND ; 

& SPETC LDCTY ; R4=CNTR = USR = RESIDUAL COUN 
& AM2901 B , A , RAMA , ADD , DZ 
& CARRYH ; 
& CONDUSR SGN ; 

& LDMAR ; RESTORE A; IF COUNT 0, SKI 

& AM2901 B , S4 , QREG , ADD , AB 

& CARRYH ; Q=TERMINAL B; START LOOPI 

& AM2901 B , A , RAMF , SUBR , AQ 

& CARRYH ; 

& LODMSR SET ; 

& AM2901 B , B , SRAMR , ADD , AB 

& CARRYH ; 

& CONDMSR NSGN ; 

& SHIFT ROTATE ; SET SIGN OF B; ALWAYS JR 
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3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 

3502 

3503 

3504 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 



0027D 



0027E 



0027F 



00280 



00281 



00282 



00283 



***************************************^ 



CPM - SINGLE INTEGER ARITH COMPARE 



- DEF ' s may reference A/B 



* 
* 

* 
* 

* 
* 
* 

********************************^^ 



* 




JSB 


.CPM 


* 


MAR 


-> DEF 


OPlt , I] 


* 


PC 


-> DEF 


0P2 [ , I] 


* 




JMP 


EQUAL 


* 




JMP 


LESS_THAN 


* 




JMP 


GREATER_THAN 


* 








* 




- Both 


operands are 


* 









IF 0P1 
IF 0P1 
IF 0P1 



OP2 
0P2 
0P2 

16 bit numbers 



CPM: 



CALL READIND 



/ 
/ 
/ 
/ 

/ 

/ 



/ 
/ 

/ 
/ 

/ 
/ 

/ 
/ 
/ 



CALL READRES 



CONT 



QREG := (0P1) AND TAB 



CONT 



CONT 



CJP SKIFNZ 



JP INCPC 



& 


AM2901 


BR , TABQ , QREG , ADD , DZ 


& 


CARRYL 




& 


LODUSR 




& 


LDMAR 




& 


DREAD 


; RESOLVE OP1 


& 


AM2901 


TAB,S0,RAMF,PASS,DZ 


& 


CREAD 


; RESOLVE 0P2 


& 


AM2901 


, SO, QREG, PASS, ZB 


& 


SPNOP 


; Q = OP1 


D TAB := 


(OP2) 


& 


AM2901 


, PC , RAMF , ADD , ZB 


& 


CARRYH 




& 


LDMAR 


; ; MAR IS EXIT 


& 


AM2901 


TAB, , NOP, SUBS, AQ 


& 


CARRYH 




& 


LODMSR 


; ; COMPARE WORDS 


& 


AM2901 


, PC, RAMF, ADD, ZB 


& 


CARRYH 


; LOAD USR FROM PR 


&. 


LUSRSP 


; COND IS SGE 


& 


AM2901 


, PC, RAMF, ADD, ZB 


& 


CARRYH 




& 


LDMAR 




& 


IFETCH 


; OP1 > OP2 : ADD 
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3524 
3525 
3526 
3527 
3528 
3529 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
3549 
3550 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 



00284 



00285 



00286 



00287 



00288 



00289 



************************************* 

* 

DFER/CFER/ZFER/XFER. * 

* 

***************************************************************** 

READ 1ST DEF & RESOLVE; Q : =ADDR 
SI := Q; MAR:=PC 

READ 2ND DEF & RESOLVE; Q:=ADDR. 

A := Q 

PC := PC+2 



DCZFER 

/ 
/ 
/ 
/ 

/ 
/ 

/ 
/ 

/ 
/ 



CCALL INDRES 



CALL READRES 



CONT 



AM2901 BR , TABQ , QREG , ADD , DZ 
CARRYL 

CONDEXT MDIR15 
LDMAR 

CMGO & DREAD 



IF FIRST DEF INDIRECT 



AM2901 PC, SI, RAMA, PASS, ZQ 



CONT 

CONT 
CONT 



LDMAR 
& CREAD 
& AM2901 SI 
CARRYH 
LDMAR 

AM2901 TAB 
LDMDOR 
DWRITE 



; SI = DESTINATION ADDRESS 
; READ SECOND DEF 
A, RAMA, ADD, ZQ 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



,NOP 



A := SOURCE ADDRESS + 1 
PASS.DZ 



WRITE FIRST WORD 
AM2901 SI , B , RAMF , ADD , ZA 
CARRYH ; B : = DEST ADDRESS + 1 

AM2901 PC, PC, RAMF, ADD, DA 
CARRYL ; 
IMM H#0002 ; PC=PC+2 



CNTR :« COUNT-2, DECODED FROM INSTRUCTION. 
READ FROM (A) ; A:=A+1 
MAR : = B ; B:=B+1 
WRITE DATA JUST READ. 
LOOP DONE (CNTR+1) TIMES. 



3562 




XFCONT: 


PUSH 


& 


AM2901 ,,NOP,ADD,AQ 


3563 


0028A 


/ 




& 


JTAB WORDCNT ; 


3564 






CONT 


& 


AM2901 A, A, RAMA, ADD, ZB 


3565 




/ 




& 


CARRYH ; 


3566 




/ 




& 


LDMAR 


3567 


0028B 


/ 




& 


DREAD ; 


3568 






CONT 


& 


AM2901 B,B, RAMA, ADD, ZB 


3569 




/ 




& 


CARRYH 


3570 




/ 




& 


LODMSR RESET ; 


3571 


0028C 


/ 




& 


LDMAR ; 


3572 






TWB FIXMAR 


& 


AM2901 TAB, TAB, NOP, PASS, DZ 


3573 




/ 




& 


CONDMSR SGN ; 


3574 




/ 




& 


LDMDOR ; 


3575 


O028D 


/ 




& 


DWRITE ; TWB NEVER 
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3577 

3578 

3579 

3580 

3581 

3582 

3583 

3584 

3585 

3586 

3587 

3588 

3589 

3590 

3591 

3592 

3593 

3594 

3595 

3596 

3597 

3598 

3599 

3600 

3601 

3602 

3603 

3604 

3605 

3606 

3607 

3608 

3609 

3610 

3611 

3612 

3613 

3614 

3615 

3616 

3617 

3618 

3619 

3620 

3621 

3622 

3623 

3624 

3625 

3626 

3627 

3628 

3629 



0028E 



0028F 



00290 



00291 



00292 



. ENTR - RTE Parameter Passing Routine 
Calling Sequence: 



******************************************* 

* 
* 
* 
* 

+ * 
I * 
I * 
I * 
+ * 



JSB 
+--> DEF 
I DEF 



SUB 

*+M+l 

P[l] 



I DEF P[M] 
I <RETURN ADDR> 
+ 



I 
I 

•- + 



PA RMS EQU * <- 

BSS N 

SUB NOP + 

JSB . ENTR | 

MAR ---> DEF PARMS | 



PC 



— > 



Operat ion : 

- Each DEF is resolved to a true address and moved to 
the parameter block before the subroutine. 

- The actual return address is stored in SUB entry 

- If M >= N then N parameters are passed. 

- If M < N then M parameters are passed. 

- M or N can be ze ro . 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



***************************************************************** 



ENTN: 



. ENTN - MOVE N PARAMETERS 



CONT 



/ 
/ 

/ 
/ 
/ 
/ 

ENTN05: 

/ 
/ 
/ 

; ***** 



CONT 
CONT 

CJP SKIP 



JP .ENTRO 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



S1=SUB ; READ SUB 



AM2901 PC,S1,RAMF,SUBR,DA 
CARRYL 
I MM H#0003 
LDMAR 
DREAD ; 
AM2901 TAB , , QREG , PASS , DZ 
SPNOP ; ; Q= PARMS 

AM2901 S1,S0,RAMF,SUBS,AQ 
CARRYH ; 
LODUSR ; ; SO = COUNT 

AM2901 SO , , NOP, ADD, DA 
CARRYL 
CONDUSR Z 
LDMDOR 
DWRITE 



WRITE TRUE RETURN ADDRESS 



AM2901 TAB,S3,RAMF,PASS,DZ 
LODMSR RESET ; MSR = 0 FOR 
LDMAR 



DREAD 



INTR 



S3=FR0M ; READ FIRST FROM 



ENTC - MOVE N PARAMETERS, RE-ENTRANT AND POSSIBLY PR IVILEDGE 
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3630 




; ***** 












3631 




. ENTC : 


CONT 




& 


AM2901 PC,S1,RAMF,SUBR,DA 


3632 




/ 






& 


CARRYL 




3633 




/ 






& 


IMM H#0005 




3634 




/ 






& 


LDMAR 




3635 


00293 


/ 






& 


DREAD 


; S1=SUB ; READ SUB 


3636 






LDCT 


. ENTN05 


& 


AM2901 TAB , ,QREG , PASS ,DZ 


3637 


00294 


/ 






& 


SPNOP 


Q=PARMS ; MSR = 1 


3638 






CONT 




& 


AM2901 S1,S0,RAMF,SUBS,AQ 


3639 




/ 






& 


CARRYH 




3640 


00295 


/ 






& 


LODUSR 


SO = COUNT 


3641 






JRP 


SKIP 


& 


AM2901 SO , A , R AMF , ADD , DA 


3642 




/ 






& 


CARRYL 




3643 




/ 






& 


CONDUSR Z 




3644 




/ 






& 


LDMDOR 


WRITE TRUE RETURN ADDRESS 


3645 


00296 


/ 






& 


DWRITE 


IN A AND IN SUB 


3646 




; ***** 












3647 




; ***** 


.ENTP 


- MOVE M 


OR N PARAMETERS , RE- 


■ENTRANT , POSSIBLY PRIVILED 


3648 




; ***** 












3649 




. ENTP : 


CONT 




& 


AM2901 PC , SI , R AMF , SUBR , DA 


3650 




/ 






& 


CARRYL 




3651 




/ 






& 


IMM H#0005 




3652 




/ 






& 


LDMAR 




3653 


00297 


/ 






& 


DREAD 


READ SUB ; S1=SUB 


3654 






CALL 


. ENTRSUB 


& 


AM2901 TAB, ,QREG, PASS, DZ 


3655 


00298 


/ 






& 


SPNOP 


Q = PARMS = TO 


3656 




; 










.ENTRSUB : S0=COUNT , S3=F 


3657 






JP 


. ENTRO 


& 


AM2901 , A , RAMF , PASS , DZ 


3658 


00299 


/ 






& 


SPNOP 


A= TRUE RETURN ADDRESS 


3659 




; ***** 












3660 




; ***** 


.ENTR 


- MOVE M 


OR N PARAMETERS 




3661 




; ***** 












3662 




. ENTR : 


CONT 




& 


AM2901 PC, SI , RAMF , SUBR , DA 


3663 




/ 






& 


CARRYL 




3664 




/ 






& 


IMM H#0003 ; 




3665 




/ 






& 


LDMAR ; 




3666 


0029A 


/ 






& 


DREAD ; 


READ SUB;S1=SUB 


3667 






CALL 


.ENTRSUB 


& 


AM2901 TAB, ,QREG, PASS, DZ 


3668 


0029B 


/ 






& 


SPNOP ; 


Q = PARMS = TO 


3669 




; 










ENTRSUB : S0=COUNT, S3= 


3670 




ENTRO: 


CONT 




& 


AM2901 ,S5,RAMF, 


PASS.ZQ 


3671 


0029C 


/ 






& 


LDMAR ; 


S5 = MAR = PARMS 


3672 




ENTRL: 


CJP 


WINDR 


& 


AM2901 TAB, ,NOP, 


PASS.DZ 


3673 




/ 






& 


CONDEXT MDIR15 ; 


SPIND DOES LDMAR, DREAD IF 


3674 


0029D 


/ 






& 


SPIND ; 


OR LDMDOR , DWRITE IF NOT 


3675 






CONT 




& 


AM2901 , SO, RAMF, 


SUBR.ZB 


3676 




/ 






& 


CARRYH ; 




3677 


0029E 


/ 






& 


LODUSR ; 


DEC COUNT; TEST FOR 0 


3678 






CJP 


SKIP 


& 


AM2901 , S3, RAMF, 


ADD , ZB 


3679 




/ 






& 


CARRYH ; 




3680 




/ 






& 


CONDUSR Z ; 




3681 




/ 






& 


LDMAR ; 




3682 


0029F 


/ 






& 


CNMGO & DREAD ; 


INC FROM;MAR=NXT FROM; SK 


3683 




.ENTRL5: 


JP 


. ENTRL 


& 


AM2901 , , QREG , ADD , ZQ 
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3684 
3685 
3686 
3687 
3688 
3689 
3690 
3691 
3692 
3693 
3694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 
3708 
3709 
3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
3722 
3723 
3724 
3725 
3726 
3727 
3728 
3729 
3730 
3731 
3732 
3733 



002A0 



002A1 



002A2 



002A3 



002A4 



002A5 



002A6 



002A7 



002A8 



002A9 



002AA 



002AB 



002AC 
002AD 



/ 
/ 

WINDR : 

/ 
/ 

/ 
/ 

/ 
/ 

/ 
/ 



INTR : 



CJP 



CJP 



CONT 



JP 



CONT 



JP 



ENTRL 



INTR 



ENTRL5 



INTERRPT 



& 
& 
& 
& 
& 
& 
4 
& 
& 
& 
& 
& 
& 
& 

& 
& 
& 
& 
& 
& 
& 



CARRYH ; 
LDMAR ; INC TO ; 

AM2901 S5.S6, NOP, PASS, ZQ 
CONDEXT NOABIN ; 
LDMAR ; MAR = TO 

AM2901 S5.S6, RAMF, SUBR, AQ 
CARRYL 

CONDEXT INTRPT 
AM2901 TAB, ,NOP 
LDMDOR 



MAR=TO ; LOOP 



CHECK FOR INTE 



DWRITE 
AM2901 
CARRYH 
DREAD 



S5 = NUMBER MOVED SO FAR 
PASS.DZ 



PUT A/B IN MEMORY 
,QREG , SUBR , ZQ 



AM2901 S6.S1 
LDMAR 

AM2901 S6.S3 
CARRYEXT 
CONDMSR SGN 
LDMDOR 
DWRITE 



; GET A/B IN THE MDIR; FIX 

NOP, PASS, ZB 

; MAR = SUB 
NOP, SUBR, AB 



RESTORE ORIGINAL SUB ENTR 



ENTRSUB - SETUP ROUTINE FOR ENTR, . ENTP 



ENTRSUB: CONT 



CONT 



CJP SKIP 



CONT 



CJP 



CRET 



SKIP 



RET 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



AM2901 

LODMSR 

LDMAR 

DREAD 

AM2901 

CARRYH 

LODUSR 

LDMAR 

AM2901 

CONDUSR 

LDMDOR 

DWRITE 

AM2901 

CARRYH 

LODUSR 

AM2901 

CARRYL 

CONDUSR 

AM2901 

CARRYH 

CONDUSR 

LDMAR 

CMGO & 

AM2901 



TAB,S3,RAMF,PASS,DZ 

SET ; MSR SET FOR .INTR 

S3 = (SUB) = TO - 1 
READ DEF TO TRUE RETURN A 
SI, S2, RAMA, SUBS, AQ 



S3 ,S0 
Z 



S2 = N ; MAR = SUB 
RAMF.PASS.DZ 



SO WILL BE M; WRITE TRUE 
S3,S0,RAMF,SUBR,AB 

; SO = TRUE RET - (TO-1) -1 
S2,S0,N0P,SUBR,AB 



Z 

S2 ,S3 

SGN 

DREAD 
S2 ,S0 



& DREAD 



; COMPARE M AND N 
, RAMF , ADD , ZB 



MAR=FR0M=S3+1 
RAMF, PASS, ZA 
; S0 = N 
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3735 ; ******************************************* 

3736 ; * 

3737 ; . . FCM ' NEGATE FLOATING-POINT VALUE IN ( A , B ) . * 

3738 ; * 

3739 UNDERFLOW AND OVERFLOW CAN OCCUR. * 

3740 ; * 

3741 ; **************************************************************** 

3742 ; 

3743 ; TEST (A) 

3744 ; PC := PC - 1 

3745 ; IF A=0 , DONE 
3746 

3747 ..FCM: CONT 4AM2901 , A , NOP , PASS , ZB 

3748 002AE / 4 LODUSR ; 

3749 CJP CLRO 4AM2901 ,,NOP,ADD,AQ 

3750 / 4 CONDUSR Z ; 

3751 002AF / 4 CMGO 4 IFETCH ; 

3752 ; 

3753 ; UNPACK ( A , B ) TO (XU.XL.XEXP) (XU=A,XL = B) 

3754 ; B := - B 

3755 ; A := - A - BORROW 

3756 ; GOTO ROUNDO 

3757 ; 

3758 CALL UNPACK1 4 AM2901 B , XEXP , RAMF , PASS , ZA 

3759 / 4 LODMSR SWAPEO ; 

3760 002B0 / 4 ENBLC 4 ENBLO ; 

3761 CONT 4 AM2901 , B , RAMF , SUBS , ZB 

3762 / 4 CARRYH ; 

3763 002B1 / 4 LODUSR ; 

3764 JP ROUNDO 4AM2901 , A , RAMF , SUBS , ZB 

3765 002B2 / 4 CARRYUC ; 
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3767 ; ***************************************************************** 

3768 ;* * 

3769 ;* . FLUN - Unpack a single precision floating-point number. * 

3770 ;* * 

3771 ; ***************************************************************** 

3772 ; 

3773 .FLUN: CONT 4 AM2901 B , A , RAMF , NOTRS , DA 

3774 002B3 / 4 I MM H#FFOO ; A = EXP | EXP SIGN 

3775 CONT 4 AM2901 B , , NOP , AND , DA 

3776 / 4 I MM H#0001 ; 

3777 002B4 / 4 LUSRCOND ; USR = EXP SIGN 

3778 CJP FLUN1 4 AM2901 A , B , RAMF , EXOR , AB 

3779 / 4 CONDUSR Z ; 

3780 002B5 / 4 IFETCH ; FETCH NEXT INST 

3781 JZ 4 AM2901 A , A , SRAMR , OR , DA 

3782 002B6 / 4 I MM H#FF01 ; SIGN EXTEND (Shift = 0001 

3783 FLUN1: JZ 4AM2901 , A , SRAMR , PASS , ZB 

3784 002B7 / 4 SHIFT B#0000 ; A = EXP 
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3786 








3787 






* 








* 


3788 






* 


PACK - Pack, normalize 


4 round a single-precision number. * 


37 89 






* 


The mantissa 


is 


contained in the A and B registers. * 


3790 






* 


The exponent 


is 


contained in the word following * 


3791 








the .PACK instruction. * 


3792 






* 








* 


3793 








3794 
















3795 






PACK: 


CALL 


FIXPC 


& 


AM2901 TAB, XEXP, RAMF, PASS, DZ 


3796 


002B8 


/ 






& 


SPNOP ; XEXP = SECOND WORD 


3797 








CONT 




& 


AM2901 XEXP, XEXP, NOP, ADD, AB 


3798 




/ 






& 


CARRYL ; 


3799 


002B9 


/ 






& 


LODUSR ; 


3800 








CJP 


FOFLUFL 


& 


AM2901 , XEXP, NOP, PASS, ZB 


3801 


002BA 


/ 






& 


CONDUSR OVR ; 


3802 
















3803 
















3804 








NORMALIZE. ENTER WITH (XU.XL) = VALUE; XEXP = EXPONENT. 


3805 
















3806 








EXIT 


TO NEXT INSTRUCTION WITH ( A , B ) = RESULT, 0 SET/RESET. 


3807 
















3808 








Mn : = 


A<15> 






3809 








Q : = 


XL 






3810 








YEXP 


:= XEXP + 1 






3811 








IF XU 


=0 THEN 






3812 








B : 


= 0 






3813 








IF 


XL=0 THEN EXIT 


3814 








XEXP 


:= YEXP + 1 






3815 
















3816 




NORM: 


LDCT 


DNCOUNTl 


& 


AM2901 A,S4,RAMF,0R,ZA 


3817 




/ 






& 


CARRYH ; 


3818 




/ 






& 


LODMSR SWAPEO ; 


3819 


002BB 


/ 






& 


ENBLC & ENBLO ; 


3820 








CJP 


NORMl 


& 


AM2901 ,B,QREG,PASS,ZB 


3821 


002BC 


/ 






& 


CONDUSR UGT ; IF A <> 0 OR 177777, JP 


3822 








CONT 




& 


AM2901 XU,XL,NOP,OR,AB 


3823 


002BD 


/ 






& 


LODMSR ; 


3824 








CJP 


NORMEND 


& 


AM2901 B, A, RAMF, PASS, ZA 


3825 


002BE 


/ 






& 


CONDUSR Z ; IF ZEROS, DONE 


3826 








CONT 




& 


AM2901 XEXP, XEXP, RAMF, SUBR, DA 


3827 




/ 






& 


CARRYL ; 


3828 


002BF 


/ 






& 


I MM H#0010 ; ADJUST EXPONENT 


3829 








CONT 




& 


AM2901 A,S4,N0P,EX0R,AB 


3830 


002C0 


/ 






& 


LODUSR ; CHECK DID NOT DISCARD ALL 


3831 








CJP 


NOSIGNS 


& 


AM2901 , , QREG , AND , ZQ 


3832 


002C1 


/ 






& 


CONDUSR SGN ; JP IF ALL SIGNS DISCARDED 


3833 




N0RM1 : 


CPUSH 




& 


AM2901 ,A,SRAMQL,PASS,ZB 


3834 




/ 






& 


CONDMSR Z ; ALWAYS FAILS 


3835 


002C2 


/ 






& 


SHIFT B#0100 ; 


3836 








TWB 




& 


AM2901 ,A,SRAMQL,PASS,ZB 


3837 




/ 






& 


SHIFT B#0100 ; 


3838 


002C3 


/ 






& 


CONDEXT IRSKBF ; 
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LINE ADDR STATEMENT 



3839 
3840 
3841 
3842 
3843 
3844 
3845 
3846 
3847 
3848 
3849 
3850 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
3860 
3861 
3862 
3863 
3864 
3865 
3866 
3867 
3868 
3869 
3870 
3871 
3872 
3873 
3874 
3875 
3876 
3877 
3878 
3879 
3880 



002C4 
002C5 

002C6 

002C7 
002C8 

002C9 



002CA 



002CB 

002CC 
002CD 
002CE 



/ 
/ 
/ 

/ 
/ 

/ 
/ 
/ 

NOSIGNS: 

/ 

/ 

/ 

/ 

INCEXP: 

/ 
/ 
/ 

NORMEND : 

/ 
/ 
/ 



ROUND : 

/ 

/ 
/ 

/ 

/ 



CONT 
JSRP 

JP INCEXP 

CONT 

CONT 

JP ROUND 



JP CLRO 



ROUND: 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



AM2901 ,A,SRAMQR,PASS,ZB 
LODMSR INVERT 
ENBLC 

SHIFT B#0100 
AM2901 ,A,SRAMQR,PASS,ZB 
CONDMSR NZ 
SHIFT B#0100 ; 
AM2901 S7,XEXP,RAMF,SUBR,AB 



CARRYL 

LODMSR RESET 
ENBLC 



CORRECT EXPONENT 



MC = 0 (= MO AFTER SWAP) 



AM2901 S4,S4,N0P,ADD,AB 
CARRYL 
LODMSR 

ENBLC ; MC = SIGN 

AM2901 ,A,SRAMQR,PASS,ZB 
SHIFT B#0100 ; SHIFT IT IN 
AM2901 , XEXP , RAMF , ADD , ZB 



CARRYH 

LODMSR SWAPEO 
ENBLC & ENBLO 



INC XEXP 



& AM2901 , , NOP , ADD , AQ 
& LODMSR SWAPEO 
& ENBLC & ENBLO 
& IFETCH 



YL := 177B 

B Q + YL (+1 IF A>=0) 
A : = A + CARRY 



CONT 
CONT 

CONT 
CONT 



& AM2901 ,YL, RAMF , PASS ,DZ 

& I MM H#007F ; 

& AM2901 A, A, NOP, ADD, AB 

& CARRYL ; 

& LODUSR 

& AM2901 YL.B, RAMF, ADD, AQ 
& CARRYNUC ; 
& AM2901 , A , RAMF , ADD , ZB 
& CARRYNUC ; 



D-93 



A600 + BASESET MICROCODE 6/15/83 ** [&LBRB1 ] 1:35 PM TUE . , 13 SEPT, 1983 PAGE 96 

LINE ADDR STATEMENT 



3882 
3883 
3884 
3885 
3886 
3887 
3888 
3889 
3890 
3891 
3892 
3893 
3894 
3895 
3896 
3897 
3898 
3899 
3900 
3901 
3902 
3903 
3904 
3905 
3906 
3907 
3908 
3909 
3910 
3911 
3912 
3913 
3914 
3915 
3916 
3917 
3918 
3919 
3920 
3921 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
3933 



002CF 
002D0 
002D1 
002D2 
002D3 
002D4 



002D5 

002D6 
002D7 

002D8 
002D9 



002DA 



002DB 



ROUNDO : 

/ 

/ 

/ 

/ 

ROUND 1 : 

/ 

/ 
/ 



R0UND2 

/ 

/ 
/ 



SPECIAL CASES: 

IF OVERFLOW ON CARRY PROPAGATE , 

A : = A RS 1 

XEXP : = XEXP + 1 
ELSE IF A=140000, 

A : = A LS 1 



XEXP 



XEXP 



CJP R0UND1 



CONT 



JP 



CJP 



CONT 



CONT 



R0UND2 



R0UND2 



4 AM2901 A, A, NOP, ADD, AB 

4 CARRYL ; 

4 CONDUSR NOVR ; 

4 AM2901 ,A,SRAMR,PASS,ZB 

4 SHIFT B#0000 

4 AM2901 , XEXP, RAMF , ADD, ZB 

4 CARRYH ; 

4 AM2901 , .NOP, ADD, AQ 

4 CONDUSR OVR ; 

4 AM2901 ,A,SRAML,PASS,ZB 

4 SHIFT B#0010 ; 

4 AM2901 , XEXP, RAMF, SUBR.ZB 

4 CARRYH ; 



CHECK FOR EXPONENT UNDERFLOW OR OVERFLOW: 



UPPER 9 BITS MUST BE THE SAME 



FORMAT EXPONENT. 



YEXP 
YEXP 
YEXP 



= XEXP .AND. 200B 

= XEXP + YEXP 

= YEXP + YEXP + CARRY 



IF (YEXP. AND. 177400B) .NE. 0, OVERFLOW/UNDERFLOW 



CONT 
CONT 

CONT 
CONT 

CJP FOFLUFL 



4 AM2901 XEXP, YEXP, RAMF, AND, DA 

4 I MM H#0080 ; 

4 AM2901 XEXP, YEXP, RAMF, ADD, AB 

4 CARRYL ; 

4 LODUSR ; 

4 AM2901 YEXP, YEXP, RAMF, ADD, AB 

4 CARRYUC ; 

& AM2901 YEXP, , NOP, AND, DA 

4 LUSRCOND ; 

4 I MM H#FFO0 

4 AM2901 , XEXP, NOP, PASS, ZB 
4 CONDUSR NZ ; 



PACK EXPONENT WITH 2ND MANTISSA WORD, CLEAR OVERFLOW, 4 EXIT. 



CONT 



JZ 



4 AM2901 B, 8, RAMF, AND, DA 

4 IMM H#FF00 ; 

4 IFETCH ; 

4 AM2901 YEXP, B, RAMF, OR, AB 

4 LODMSR RESET ; 

4 ENBLO ; 
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LINE ADDR STATEMENT 



3935 
3936 
3937 
3938 
3939 
3940 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3951 
3952 



002DC 



002DD 



002DE 



002DF 



/ 
/ 

FOFI 

/ 
/ 

/ 
/ 
/ 



FLOATING UNDERFLOW & OVERFLOW. 

TEST SIGN OF EXPONENT. 

NEGATIVE: UNDERFLOW, RESULT = 0 

POSITIVE: OVERFLOW, RESULT = 77777B , 177776B 



FOFLUFL: CJP FOFL 

/ 
/ 



JZ 



CONT 



JZ 



& AM2901 , A , RAMF , AND , ZB 

& CONDUSR NSGN 

& CNMGO 4 IFETCH ; 

& AM2901 , B, RAMF , AND, ZB 

& LODMSR SET ; 

& ENBLO 

& AM2901 A , A , SRAMR , EXNOR , AB 

& SHIFT B#0000 ; A = 077777B 

& IFETCH ; 

& AM2901 B.B.SRAML, EXNOR, AB 

& LODMSR SET ; 

& ENBLO ; SET 0 

& SHIFT B#0010 : B=177776B 
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LINE ADDR STATEMENT 

3954 ; ******************************************* 

3955 ;* * 

3956 ;* . PWR2 - Multiply a real number by a power of 2. * 

3957 ;* No overflow or underflow checks. * 

3958 ;* * 

3959 ;* THE POWER OF 2 IS NOT A/B ADDRESSABLE * 

3960 ;* * 

3961 ; ***************************************************************** 

3962 ; 

3963 . PWR2 : CCALL READRES & AM2901 BR , TABQ , QREG , ADD , DZ 

3964 / & CARRYL ; 

3965 / & CONDEXT MDIR15 ; 

3966 / & LDMAR ; 

3967 002E0 / & DREAD ; RESOLVE POWER OF 2 

3968 CONT & AM2901 A , B , NOP , OR , AB 

3969 002E1 / & LODUSR ; CHECK FOR ZERO 

3970 CJP INCPC & AM2901 PC , SO , RAMA , PASS , DZ 

3971 / & CONDUSR Z ; SO = POWER OF 2 

3972 / & LDMAR ; MAR = PC 

3973 002E2 / & CMGO 4 IFETCH ; IF ZERO , DONE 

3974 CONT & AM2901 B , SI , RAMF , AND , DA 

3975 002E3 / & I MM H#FF00 ; SI = MANTISSA 

3976 CONT & AM2901 SI , B , SRAMQR , EXOR , AB 

3977 002E4 / & SHIFT B#0110 ; B = EXP, Q=EXP SIGN 

3978 CONT &AM2901 ,, NOP , PASS , ZQ 

3979 002E5 / & LODUSR ; USR = EXP SIGN 

3980 CJP PWR2P0S & AM2901 SO , B , RAMF , ADD , AB 

3981 / & CARRYL ; ADD EXP AND POWER OF 2 

3982 002E6 / & CONDUSR NSGN ; IF NEG EXP, MUST ADD SIGN 

3983 CONT & AM2901 B , B , RAMF , ADD , DA 

3984 / & CARRYL ; 

3985 002E7 / & IMM H#FF80 ; ADD SIGN EXTENSION 

3986 PWR2P0S: CONT & AM2901 , B , SRAML , PASS , ZB 

3987 002E8 / & SHIFT B#1010 ; REFORMAT EXPONENT 

3988 CONT &AM2901 B , B , RAMF , NOTRS , DA 

3989 002E9 / & IMM H#FFOO ; MASK TO 8 BITS 

3990 JP INCPC & AM2901 SI , B , RAMF , OR , AB 

3991 002EA / & IFETCH ; MERGE MANTISSA AND EXP, F 
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3993 
3994 
3995 
3996 
3997 
3998 
3999 
4000 
4001 
4002 
4003 
4004 
4005 
4006 
4007 
4008 
4009 
4010 
4011 
4012 
4013 
4014 
4015 
4016 
4017 
4018 
4019 
4020 
4021 
4022 
4023 
4024 
4025 
4026 
4027 
4028 
4029 
4030 
4031 
4032 
4033 
4034 
4035 
4036 
4037 
4038 



002EB 

002EC 
002ED 



002EE 

002EF 
002F0 
002F1 
002F2 
002F3 



002F4 



002F5 



Convert single precision to double precision. 

JSB .BLE 
DEF RTNADDRESS 
DEF DPRESULT 
DEF SPARGUMENT 



* 
* 

* 
* 



BLE ; 



CCALL INDRES 



CONT 
CONT 

CCALL READRES 



CONT 

CONT 
CONT 
CONT 
CONT 

CCALL INDRES 



JP DST0RE1 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



AM2901 BR , TABQ , QREG , ADD , DZ 
CARRYL ; 
CONDEXT MDIR15 ; 
LDMAR ; 

DREAD ; 
,PC,NOP,ADD,ZB 



CMGO & 
AM2901 
CARRYH 
LDMAR 
CREAD 
AM2901 
SPNOP 



; GET ARGUMENT 
S5 , RAMF , PASS , ZQ 

; S5 = RETURN ADDRESS 
AM2901 BR, TABQ, QREG, ADD, DZ 
CARRYL ; 
CONDEXT MDIR15 ; 
LDMAR ; 



DREAD 
AM2901 
CARRYH 
LDMAR 



; RESOLVE INDIRECTS 
,NOP,ADD,ZQ 

; SECOND WORD ADDRESS 



AM2901 TAB, SO, RAMF, PASS, DZ 



DREAD 



SO=FIRST WORD, READ 2ND 



AM2901 PC,S2,RAMA,AND,ZB 



LDMAR 



S2 



AM2901 TAB, SI, RAMF, PASS, DZ 

CREAD ; SI = SECOND WORD 

AM2901 SI , S3 , RAMF , NOTRS , DA 

I MM H#FFOO ; S3 = EXP 

AM2901 BR, TABQ, QREG, ADD, DZ 

CARRYL ; 

CONDEXT MDIR15 ; 

LDMAR ; 

CMGO & DREAD ; 

AM2901 S3,S1,RAMF,EX0R,AB 

LODMSR RESET ; 

ENBLO ; SI = MANTISSA BITS 
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LINE ADDR STATEMENT 



4040 

4041 

4042 

4043 

4044 

4045 

4046 

4047 

4048 

4049 

4050 

4051 

4052 

4053 

4054 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 

4063 

4064 

4065 

4066 

4067 

4068 

4069 

4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 

4078 



002F6 



002F7 



002F8 
002F9 

002FA 
002FB 
002FC 
002FD 

002FE 



***************************************** 

* * 

* Convert double precision to single precision. * 

* * * 

* JSB . NGL * 

* DEF ARGUMENT * 

* * 
***************************************************************** 

Get argument. Pack into (A.Q.XEXP) and let 
single precision finish it. 



NGL; 



/ 
/ 
/ 
/ 

/ 
/ 

/ 
/ 
/ 
/ 



/ 
/ 

/ 

/ 

NGL01 : 
/ 

NGL02 : 

/ 
/ 



CCALL INDRES 



CALL DBLARG1 



CONT 



CONT 
CJP 

CJP 
CONT 
JP 
JZ 



NGL02 



NGL01 



ROUND 



4 AM2901 BR , TABQ , QREG , ADD , DZ 
4 CARRYL ; 
4 CONDEXT MDIR15 ; 
4 LDMAR ; 

4 CMGO 4 DREAD ; RESOLVE RETURN ADDRESS 

4 AM2901 PC. S5, RAMA, PASS, ZO 

4 LDMAR ; GET ARGS 

4 CREAD ; S5 = RTN ADDRESS 

4 AM2901 S5,PC,RAMA,ADD,ZA 

4 CARRYH ; 

4 LODMSR SWAPEO ; 

4 ENBLC 4 ENBLO ; 

4 LDMAR ; MAR = NEXTINST, FIX PC 

4 AM2901 S0,A,RAMF,PASS,ZA 

4 LODUSR ; A = FIRST WORD 

4 AM2901 S3,S2,NOP,OR,AB 

4 CONDUSR Z ; IF A IS ZERO, DONE 

4 CMGO 4 IFETCH ; 

4 AM2901 , SI, QREG, PASS, ZB 

4 CONDUSR Z ; 

4 AM2901 , ,QREG , OR , DQ 

4 IMM HttOOOl ; 

4 AM2901 MP,XEXP,RAMF,PASS,ZA 

4 SPNOP ; 

4 AM2901 , B , RAMF , AND , ZQ 

4 LODMSR RESET ; 

4 ENBLO ; 
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LINE ADDR STATEMENT 



4080 
4081 
4082 
4083 
4084 
4085 
4086 
4087 
4088 
4089 
4090 
4091 
4092 
4093 
4094 
4095 
4096 
4097 
4098 
4099 
4100 
4101 
4102 
4103 



002FF 



00300 



00301 



00302 



************************************^ 

* * 

* Double precision negate in place. * 

* * 

* JSB . . TCM * 

* DEF ARGUMENT * 

* * 



.TCM: 



/ 
/ 
/ 
/ 

/ 
/ 
/ 
/ 

/ 
/ 



CCALL READRES 



CALL DBLARG1A 



CALL DNEGATE 



JP 



DPACK1 



& 


AM2901 


BR , TABQ , QREG , ADD , DZ 




& 


CARRYL 






& 


CONDEXT 


MDIR15 ; 




& 


LDMAR 






& 


DREAD 


; RESOLVE DEF , 


READ 


& 


AM2901 


, , QREG, ADD, ZQ 




& 


CARRYH 


; GET ARGS 




& 


LODMSR 


SWAPEO ; 




& 


ENBLC & 


ENBLO ; SWAP E & 0 




& 


LDMAR 


; MAR = SECOND 


WORD 


& 


AM2901 


,S3,RAMF,SUBS,ZB 




& 


CARRYH 






& 


LODUSR 






& 


AM2901 


PC,S5,RAMF,PASS,ZA 




& 


SPNOP 


; S5 POINTS TO 


NEXT 



1ST WOR 



INST 
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LINE ADDR STATEMENT 

4105 ; ************************************** 

4106 ;* * 

4107 ;* OPERATING SYSTEM SET * 

4108 ;* * 

4109 ;* 105300 - .CPUID - Processor Identification * 

4110 ;* 105301 - .FWID - Microcode Identification * 

4111 ;* 105302 - .WFI - Wait for Interrupt * 

4112 ;* 105303 - .SIP - Skip if Interrupt Pending * 

4113 ;* * 

4114 ; ***************************************************************** 

4115 ;***** 

4116 ;***** CPUID - LOAD A REG WITH CPU ID 

4117 ;***** 

4118 .CPUID: JZ 4 AM2901 , A , RAMF , PASS ,DZ 

4119 / 4 I MM CPUID ; 

4120 00303 / 4 IFETCH ; 

4121 ;***** 

4122 ;***** FWID - LOAD A REG WITH MICROCODE ID 

4123 ;***** 

4124 .FWID: JZ 4 AM2901 , A , RAMF , PASS , DZ 

4125 / & IMM MICREVID ; 

4126 00304 / 4 IFETCH ; 

4127 ;***** 

4128 ;***** SIP - SKIP IF I/O INTERRUPT PENDING 

4129 ;***** 

4130 SIP: JZ 4 AM2901 PC , PC , RAMA , ADD , ZB 

4131 / & CARRYEXT ; 

4132 / 4 CONDEXT SINTRO ; 

4133 / & CLD 4 LDMAR ; 

4134 00305 / 4 IFETCH ; SKIP IF PENDING 

4135 ;***** 

4136 ;***** WFI - WAIT FOR INTERRUPT 

4137 ;***** 

4138 .WFI: LDCT .WFI2 4 AM2901 ,,N0P,ADD,AQ 

4139 00306 / 4 SPNOP ; 

4140 .WFI2: JRP INTERRPT 4AM2901 ,,N0P,ADD,AQ 

4141 00307 / 4 CONDEXT INTRPT ; 
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4143 
4144 
4145 
4146 
4147 
4148 
4149 
4150 
4151 
4152 
4153 
4154 
4155 
4156 
4157 
4158 
4159 
4160 
4161 
4162 
4163 
4164 
4165 
4166 
4167 
4168 
4169 
4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 
4178 
4179 
4180 
4181 
4182 
4183 
4184 
4185 
4186 
4187 
4188 
4189 
4190 
4191 



DMS Map Feat ure 



There are 32 sets of 32 map registers, 
selected by the Address Extention Reg. 
is selected by bits 10 to 14 of the MAR 
loaded from bits 0-5 of the Y bus. Ex: 



The map set is 
The actual map 
The AER is 



reg 



ROM | 



Map Set Number 



AER 



+--+--+--+--+--+- 
| XX | Map Reg Num 
+--+--+--+--+--+- 



-+--+--+--+--+--+--+--+--+- 

| Offset 
•+--+--+--+--+--+--+--+--+- 



- + - - + 

I 

- + - - + 



MAR 



The Macro machine can access 3 map sets directly. They 
are called Execute map, Data 1 map, and Data 2 map. 
These maps are kept in a 4 word by 8 bit register file 
external to the 2901 



-+--+--+- 
Data 2 
-+--+--+--+- 



+ -- + - 
Map 



-+--+--+--+--+- 

Data 1 Map 
-+--+--+--+--+- 

-+--+--+--+--+- 

Exec Map 
-+--+--+--+--+- 



- + -- + 

I 

- + -- + 



MAPD2 



MAPD1 



MAPX 



- The MAPD1, MAPD2, and MAPX registers are loaded from WMAP 
or the Working MAP set. WMAP has the format: 



+- -+- -H 

| MP | 

Whe re : 



--+--+-- 
DATA2 



•+--+• 
I 



-+--+- 
DATA1 



--+--+-- 
EXEC 



WMAP 



-+--+--+ 



MP - Memory Protect enable 
DATA2 - Data 2 map number 
DATA1 - Data 1 map number 
EXEC - Execute map number 



* 
* 
* 

* 

* 

* 
* 
* 
* 

* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
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LINE ADDR STATEMENT 



4193 
4194 
4195 
4196 
4197 
4198 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 



;********************************************* 



;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 



Priviledged DMS Instructions 



- The following DMS instructions are priviledged: 

LPMR - Load Page Mapping Register 
SPMR - Store Page Mapping Register 
LDMP - Load Map 
STMP - Store Map 
LWD1 - Load Data 1 map number 
LWD2 - Load Data 2 map number 
SWMP - Store Working Map set 
SIMP - Store Interrupt Map set 
XJMP - Cross map JMP 

- If any of these instructions are executed while memory 
protect is enabled, a memory protect violation will be 
generated by the firmware. After the instruction is 
decoded, a test is made for Memory Protect enable. If 
the MP system is on, generate a protect violation. 



* 
* 

* 
* 
* 
* 
* 
* 
* 
* 

* 
* 

* 
* 
* 
* 
* 



f ^£3|C3(C3|C!^C>jC3(C3(C -^(^ ^4^" ^tt^ - -3^^ ^tt^ - 3^C- 3fC 3fC 3fC 3jC3^C3fC 3^C3jC3|C3fC^|( 
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4218 
4219 
4220 
4221 
4222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 
4230 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4240 
4241 
4242 
4243 
4244 
4245 
4246 
4247 
4248 
4249 



00308 



00309 



0030A 



0030B 



0030C 



0030D 



0030E 



XL.l or XL. 2 
DEF ADDRESS 

CROSS LOAD A/B FROM ALTERNATE MAP 
INDIRECTS ARE RESOLVED IN THE EXECUTE MAP 
THE FINAL REFERENCE TAKES PLACE WITH BOOT 
MEMORY AND A/B ADDRESSABILITY TURNED OFF 



* 
* 
* 
* 
* 
* 
* 
* 
* 



CCALL INDMS 



CONT 



AM2901 TAB, ,QREG, PASS, DZ 
CONDEXT MDIR15 ; 
LDMAR ; 
AM2901 MAPD1, , NOP, PASS, DZ 
LDAER ; 

DREAD ; READ FROM DATA1 MAP 

AM2901 MAPX, , NOP, PASS, DZ 

LDAER ; PUT EXECUTE MAP BACK IN A 

AM2901 PC, PC, RAMA, ADD, ZB 
CARRYH 
LDMAR 
IFETCH 
AM2901 
SPNOP 



XL. 10: 
/ 
/ 

/ 
/ 

XLCONT 

/ 

/ 
/ 
/ 



CONT 



CONT 



JZ 



/ 

XL. 20 

/ 

/ 

/ 
/ 



CCALL INDMS 



JP 



XLCONT 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



CAB, RAMF, PASS, DZ 

; LOAD A/B WITH DATA 
AM2901 TAB , , QREG , PASS ,DZ 
CONDEXT MDIR15 ; 
LDMAR ; 
AM2901 MAPD2, .NOP, PASS, DZ 
LDAER ; 

DREAD ; START A READ IN DATA2 MAP 
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4251 






***************************************** 


4252 






* 






* 


4253 






* 


XC.l or XC. 


2 


* 


4254 






* 


DEF ADDRESS 




* 


4255 






* 






* 


4256 






* 


CROSS COMPARE 


A/B 


WITH LOCATION IN * 


4257 






* 


ALTERNATE MAP 


ADDRESS POINTS TO * 


4258 






* 


A LOCATION IN 


DATA1 MAP. * 


4259 






* 






* 


4260 






***************************************)) t )|t********!(c******))()|C!| t 3((**)|t** 


4261 














4262 




XC.IO: 


CCALL INDMS 


& 


AM2901 TAB, ,QREG, PASS, DZ 


4263 




/ 




& 


CONDEXT MDIR15 ; 


4264 


0030F 


/ 




& 


LDMAR ; 


4265 








CONT 


& 


AM2901 MAPD1, , NOP, PASS, DZ 


4266 




/ 




& 


LDAER ; 


4267 


00310 


/ 




& 


DREAD ; READ FROM DATA1 MAP 


4268 




XCCONT: 


CONT 


&. 


AM2901 MAPX,, NOP, PASS, DZ 


4269 


00311 


/ 




& 


LDAER ; PUT EXEC MAP BACK 


4270 








CONT 


& 


AM2901 CAB, ,NOP,EXOR,DA 


4271 


00312 


/ 




& 


LODUSR ; COMPARE DATA 


4272 








JP INCPC 


& 


AM2901 PC,PC,RAMF,ADD,ZA 


4273 




/ 




& 


CARRYEXT ; 


4274 




/ 




& 


CONDUSR NZ ; 


4275 




/ 






& 


LDMAR ; FETCH FROM THE APPROPRIAT 


4276 


00313 


/ 






Sc 


IFETCH ; ADDRESS (SKIP IF NO COMPA 


4277 




XC.20: 


CCALL INDMS 


& 


AM2901 TAB, , QREG , PASS , DZ 


4278 




/ 






& 


CONDEXT MDIR15 ; 


4279 


00314 


/ 






& 


LDMAR ; 


4280 








JP XCCONT 


& 


AM2901 MAPD2 , , NOP , PASS , DZ 


4281 




/ 






& 


LDAER ; 


4282 


00315 


/ 






& 


DREAD ; READ FROM DATA2 MAP 
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4284 
4285 
4286 
4287 
4288 
4289 
4290 
4291 
4292 
4293 
4294 
4295 
4296 
4297 
4298 
4299 
4300 
4301 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
4309 
4310 
4311 



00316 



00317 



00318 



00319 



0031A 



0031B 



*******************************^^ 



XS.l or XS.2 
DEF ADDRESS 

CROSS STORE A/B THROUGH ALTERNATE MAP . 
INDIRECTS ARE RESOLVED IN THE EXECUTE MAP. 
A/B ADDRESSABILITY AND BOOT MODE ARE TURNED 
OFF FOR THE FINAL REFERENCE (STORE) 



* 

* 
* 
* 
* 

* 
* 



*********************************^ 



XS. 10: 

/ 

/ 

/ 

XSCONT: 

/ 

/ 

/ 

XS.20 : 

/ 

/ 

/ 



CCALL INDMS 

CONT 
CONT 

JP SKIP 
CCALL INDMS 
JP XSCONT 



& AM2901 TAB, ,QREG, PASS, DZ 
& CONDEXT MDIR15 ; 
& LDMAR 

& AM2901 MAPD1 , , NOP , PASS , DZ 

& LDAER ; LOAD AER WITH DATA1 

& AM2901 , CAB, NOP, PASS, ZB 

& LDMDOR ; 

& DWRITE ; WRITE DATA WITH DATA1 

& AM2901 MAPX, , NOP, PASS, DZ 

& LDAER ; PUT EXEC MAP BACK 

& AM2901 TAB, ,QREG, PASS, DZ 

& CONDEXT MDIR15 ; 

& LDMAR ; 

& AM2901 MAPD2, , NOP, PASS, DZ 

& LDAER ; LOAD AER WITH DATA2 
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4313 






******************************************* 


4314 






* 








* 


4315 






* 


LWD1 






* 


4316 






* 


DEF NEWDATA 1 






* 


4317 






* 








* 


4318 






* 


LOADS THE DATA1 


MAP PORTION OF MAPD REG * 


4319 






* 


FROM NEWDATA1 . 


THE LOWER 8 BITS OF * 


4320 






* 


THE DATA WORD ARE 


LOADED INTO MAPD 


* 


4321 






* 








* 


4322 






*************************************************^ 


4323 
















4324 




LWD1 : 


CJP GENMPV 


& 


AM2901 BR , TABQ , QREG , ADD , DZ 


4325 




/ 




& 


CARRYL 




4326 




/ 




& 


CONDEXT MPEN 




4327 




/ 




& 


LUSRCOND 


; LOAD USR WITH INDIRECT BI 


4328 




/ 




& 


LDMAR 




4329 


0031C 


/ 




& 


CNMGO & DREAD 


READ NEW DATA1 MAP It OR M 


4330 








CCALL MRGIND 


& 


AM2901 , PC, NOP, PASS, ZB 


4331 




/ 




& 


CONDUSR SGN 


IF BIT SET, 


4332 


0031D 


/ 




& 


LDMAR 


RESOLVE INDIRECTS 


4333 








JP INCPC 


& 


AM2901 TAB, MAPD1, NOP, PASS, DZ 


4334 


0031E 


/ 






& 


IFETCH 


LOAD NEW DATA1 VALUE, FET 


4335 
















4336 




LWD2 : 


CJP GENMPV 


& 


AM2901 BR, TABQ, QREG, ADD, DZ 


4337 




/ 






& 


CARRYL 




4338 




/ 






& 


CONDEXT MPEN 


IF MP SYSTEM ON, INTERRUP 


4339 




/ 






& 


LUSRCOND 


LOAD USR WITH INDIRECT BI 


4340 




/ 






& 


LDMAR 




4341 


0031F 


/ 






& 


CNMGO & DREAD 


READ NEW DATA2 MAP #, ELS 


4342 








CCALL MRGIND 


& 


AM2901 , PC, NOP, PASS, ZB 


4343 




/ 






& 


CONDUSR SGN ; 




4344 


00320 


/ 






& 


LDMAR ; 


RESOLVE INDIRECTS 


4345 








JP INCPC 


& 


AM2901 TAB, MAPD2 , NOP, PASS, DZ 


4346 


00321 


/ 






& 


IFETCH ; 


LOAD NEW DATA2 VALUE, FET 
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4348 

4349 

4350 

4351 

4352 

4353 

4354 

4355 

4356 

4357 

4358 

4359 

4360 

4361 

4362 

4363 

4364 

4365 

4366 

4367 

4368 

4369 

4370 

4371 

4372 

4373 

4374 

4375 

4376 

4377 

4378 

4379 

4380 



00322 



00323 



00324 



00325 



00326 



00327 



**************************************** 

* * 

* LPMR * 

* * 

* LOAD PAGE MAPPING REG ADDRESSED BY A REG * 

* FROM B REG. A REG IS INCREMENTED 
* 

***************************************************************** 



* 
* 



LPMRO: CJP GENMPV & AM2901 ,,NOP,ADD,AQ 

/ & CONDEXT MPEN ; IF MEM PROTECT ENABLED 

CALL POSIMAPR &AM2901 , A , RAMF , ADD , ZB 
/ & CARRYH ; POSITION MAP REG NUMBER , 

. ; INCREMENT A 

JP DMSEXIT & AM2901 , B , NOP , PASS , ZB 
/ & SPWR MAPWR ; LOAD MAP REG 

; FIX MAR AND FETCH 
***************************************************************** 

* * 

* SPMR * 

* * 

* STORE PAGE MAPPING REG ADDRESSED BY A REG * 



* INTO B REG. A REG IS INCREMENTED. * 

***************************************************************** 



SPMRO: 
/ 

/ 



CJP GENMPV 



CALL POSIMAPR 



JP 



DMSEXIT 



4 AM2901 , , NOP , ADD , AQ 

& CONDEXT MPEN ; IF MP SYSTEM ON, MP INT 
& AM2901 , A , RAMF , ADD , ZB 

& CARRYH ; POSITION MAP REG NUMBER ; 

; INCREMENT A 
& AM2901 , B, RAMF , PASS, DZ 
& SPRD PDIRRD ; B := MAP REG NUMBER 



D-107 



A600+ BASESET MICROCODE 6/15/83 ** [&LBRB1] 1:35 PM TUE . , 13 SEPT, 1983 PAGE 110 

LINE ADDR STATEMENT 

4382 ; ********************************************** 

4383 ;* POSIMAPR - POSITION MAP REG NUMBER * 

4384 ;* * 

4385 ;* This routine loads the AER and the MAR with the * 

4386 ;* appropriate map register number, and reads the map * 

4387 :* register. The MAR and AER remain set so that the map * 

4388 ;* register may be written if desired. * 

4389 ;* t 

43 9 0 ; ***************************************************************** 

4391 ; 

4392 POSIMAPR: PUSH H#004 & AM2901 A , SO , RAMF , SUBR , ZA 

4393 00328 / 4 CARRYH ; SO : = A - 1 SR 1 

4394 RFCT & AM2901 , SO , SRAMR , PASS , ZB 

4395 00329 / & SHIFT ROTATE ; ROTATE SO RIGHT 4 MORE BI 

4396 THIS POSITIONS MAPSET * IN LOW 5 

4397 CONT & AM2901 , SO , SRAMR , PASS , ZB 

4398 / 4 SHIFT ROTATE ; POSITION PAGE * 

4399 0032A / & LDAER ; LOAD AER WITH MAPSET 
44 °0 RET & AM2901 , SO , NOP , PASS , ZB 

44 °1 / & LDMAR ; 

4402 0032B / & SPETC LDMAPD ; MAR : = PAGE #, READ MAP R 
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4404 

4405 

4406 

4407 

4408 

4409 

4410 

4411 

4412 

4413 

4414 

4415 

4416 

4417 

4418 

4419 

4420 

4421 

4422 

4423 

4424 

4425 

4426 

4427 

4428 

4429 

4430 

4431 

4432 

4433 

4434 

4435 

4436 

4437 

4438 

4439 

4440 

4441 

4442 

4443 

4444 

4445 

4446 

4447 

4448 

4449 

4450 

4451 

4452 

4453 

4454 

4455 

4456 



0032C 



0032D 



0032E 



0032F 



00330 



00331 



00332 



00333 



00334 



************************************** 



LDMP 
DEF MAP. 
DEF MAP 



NUMBER 
IMAGE 



LOADS THE 32 PAGE REGISTERS IN MAP 
MAP_NUMBER FROM CONSECUTIVE MEMORY 
LOCATIONS STARTING AT MAP_IMAGE 



All reads and writes are done in the 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



* EXECUTE map * 

* * 
***************************************************************** 



LDMP: 

/ 
/ 
/ 
/ 
/ 

/ 
/ 



LDMP5 : 
/ 
/ 
/ 

/ 



CJP GENMPV 



CCALL MRGIND 



CALL READRES 



LDCT H#01F 



& AM2901 BR , TABQ , QREG , ADD , DZ 
& CARRYL 
& CONDEXT MPEN 
& LUSRCOND 
& LDMAR 

& CNMGO 4 DREAD 
& AM2901 PC,S7,RAMA,AND,ZQ 
& CONDUSR SGN ; 

& LDMAR ; RESOLVE MAP_NUMBER 

& AM2901 TAB,S0,RAMF,PASS,DZ 

& CREAD ; RESOLVE MAP_IMAGE ; 

; START READ OF FIRST DATUM 
& AM2901 S7,S0,N0P,PASS,ZB 

& LDAER ; LOAD AER WITH MAP_NUMBER ; 

; 2901 := # OF PAGES IN A M 



LOOP TO TRANSFER MAP 



/ 

TWIEXIT: 
/ 
/ 
/ 

LDMP7: 

I 

I 

/ 



S7 IS PAGE NUMBER 
CONT 

CONT 

RPCT LDMP7 
JP INCPC 



CONT 



JP 



LDMP5 



AM2901 S7 , S7 , RAMA , ADD , DA 
CARRYL 
LDMAR 

I MM H#0400 



LOAD MAR WITH PAGE_NUMBER 
AM2901 ,, NOP, PASS, DZ 
SPWR MAPWR ; WRITE THE MAP 

NOP , PASS , DZ 

; LOAD AER WITH EXECUTE MAP 
PC , PC , RAMF , ADD , ZB 



AM2901 MAPX, 
LDAER 
AM2901 
CARRYH 
LDMAR 
IFETCH 
AM2901 
CARRYH 
LDMAR 
DREAD 
AM2901 



FETCH NEXT INSTRUCTION 
QREG, ADD, ZQ 



READ NEXT MAP REGISTER VA 
S7,S0,NOP,PASS,ZB 
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4457 

4458 

4459 

4460 

4461 

4462 

4463 

4464 

4465 

4466 

4467 

4468 

4469 

4470 

4471 

4472 

4473 

4474 

4475 

4476 

4477 

4478 

4479 

4480 

4481 

4482 

4483 

4484 

4485 

4486 

4487 

4488 

4489 

4490 

4491 

4492 

4493 

4494 

4495 

4496 

4497 

4498 

4499 

4500 

4501 

4502 

4503 

4504 

4505 

4506 

4507 

4508 

4509 

4510 



00335 



/ 



& LDAER 



LOAD AER WITH MAP NUMBER ; 



00336 



00337 



00338 



00339 



0033A 



0033B 



0033C 



0033D 



*********************************^^ 



STMP 
DEF MAP_ 
DEF MAP 



NUMBER 
IMAGE 



STORES THE 32 PAGE REGISTERS IN MAP 
MAP_NUMBER INTO CONSECUTIVE MEMORY 
LOCATIONS STARTING AT MA P_IMAGE 

ALL READS AND WRITES ARE DONE IN THE 
EXECUTE MAP 



* 

* 
* 
* 
* 
* 



*********************************^^ 



STMP: 

/ 

/ 

/ 

/ 

/ 

/ 
/ 



CJP 



GENMPV 



CCALL MRGIND 



CALL INDRES 



& AM2901 BR , TABQ , QREG , ADD , DZ 
& CARRYL 
& CONDEXT MPEN 
& LUSRCOND 
& LDMAR 

& CNMGO & DREAD 
& AM2901 PC,S7,RAMA,AND,ZQ 
& CONDUSR SGN 

& LDMAR ; RESOLVE MAP_NUMBER 

& AM2901 TAB,SO,RAMF,PASS,DZ 

& CREAD ; RESOLVE MAP IMAGE 



PLACE MAP IMAGE ADDRESS IN S5 



LDCT H#01F 



& AM2901 SO, S5, RAMA, PASS, ZQ 



& LDAER 



S5 := MAP_IMAGE 
AER := MAP NUMBER 



LOOP TO TRANSFER MAP 



S7 IS PAGE NUMBER REG 



STMP5 

/ 
/ 
/ 
/ 

/ 
/ 

/ 
/ 

/ 
/ 



CONT 



CONT 



CONT 



RPCT STMP7 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



AM2901 S7.S7. 

CARRYL 

IMM H#0400 

LDMAR 

SPETC 



RAMA , ADD , DA 



LOAD MAR WITH PAGE * AND 
DO MAP READ ( LDMAPD=0 ) 



,NOP,PASS,DZ 



; PASS MAP DATAIN REG TO M 
RAMA , ADD , ZA 



AM2901 
LDMDOR 
SPRD PDIRRD 
AM2901 S5.S5 
CARRYH ; 

LDMAR ; LOAD MAR AND INC MAPIMAG 

AM2901 MAPX, , NOP, PASS, DZ 
LDAER ; 

DWRITE ; LOAD AER AND WRITE 
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4511 
4512 
4513 
4514 
4515 
4516 
4517 
4518 



0033E 



0033F 



; FETCH NEXT INSTRUCTION 

JP INCPC & AM2901 PC , PC , RAMF , ADD , ZB 

/ & CARRYH 

/ & LDMAR 

/ & IFETCH 

STMP7: JP STMP5 & AM2901 

/ & LDAER 



, SO, NOP, PASS, ZB 

; AER = MAP NUMBER 
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4520 

4521 

4522 

4523 

4524 

4525 

4526 

4527 

4528 

4529 

4530 

4531 

4532 

4533 

4534 

4535 

4536 

4537 

4538 

4539 

4540 

4541 

4542 

4543 

4544 

4545 

4546 

4547 

4548 

4549 

4550 

4551 

4552 

4553 

4554 

4555 

4556 

4557 

4558 

4559 

4560 

4561 

4562 

4563 

4564 

4565 

4566 

4567 

4568 

4569 

4570 

4571 

4572 



00340 



00341 
00342 

00343 



00344 



00345 
00346 

00347 
00348 
00349 

0034A 



*******************************************************)t^ 

* * 

* SWMP * 

* DEF SAVEWMAP * 

* * 

* STORES THE CURRENT WMAP INTO MEMORY. * 

* * 
************************************** 



SWMPO : 
/ 

/ 
/ 
/ 
/ 



CJP GENMPV 



CCALL INDRES 



CALL STWMAP 



JZ 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



AM2901 , , NOP , ADD , AQ 
CONDEXT MPEN ; INT IF MP 
AM2901 BR , TABQ , QREG , ADD , DZ 
CARRYL 

CONDEXT MDIR15 
LDMAR 

DREAD 



SYS ON 



CMGO 4 
AM2901 
SPNOP 
AM2901 
CARRYH 
LDMAR 
IFETCH 



RESOLVE SAVEWMAP ADDR 
, , NOP , ADD , AQ 

; STORE WMAP 
PC , PC , RAMA , ADD , ZB 



FETCH NEXT INSTRUCTION 



************************************************************)(!**** 

* 
* 
* 
* 
* 
* 



SIMP 
DEF 

STORES 
MEMORY . 



SAVEIMAP 

THE CONTENTS OF IMAP REG INTO 
IMAP REG IS ACTUALLY IN BOOT 



MEMORY AT LOCATION "IMAPLOC" 



* 
* 



**************************)K)K)(c*)K)(!)((******************************** 



SIMPO 

/ 

/ 
/ 
/ 
/ 

/ 
/ 

/ 
/ 
/ 



CJP 



GENMPV 



CCALL INDRES 



CONT 



CONT 



CONT 



CONT 



JP 



SKIP 



& 
& 

& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
&. 



AM2901 , , NOP , ADD , AQ 

CONDEXT MPEN ; INT IF M.P. SYS ON 
AM2901 BR, TABQ, QREG, ADD, DZ 
CARRYL ; 
CONDEXT MDIR15 ; 
LDMAR ; 

; RESOLVE SAVEIMAP ADDR 
PASS.DZ 



DREAD 
, ,NOP, 



CMGO & 
AM2901 
LDAER 

IMM H#0020 
AM2901 , ,NOP 
IMM IMAPLOC 
LDMAR 



; ENABLE 
PASS.DZ 



BOOT MEMORY 



DREAD 

AM2901 

LDAER 

AM2901 

LDMAR 

AM2901 

LDMDOR 

DWRITE 



; READ IMAP 
MAPX, , NOP, PASS.DZ 

; PUT MAPX BACK INTO AER 
, , NOP, PASS, ZQ 

; PUT SAVEIMAP ADDR INTO MA 
, TAB, NOP, PASS.DZ 

; STORE IMAP INTO MEM 
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4574 
4575 
4576 
4577 
4578 
4579 
4580 
4581 
4582 
4583 
4584 
4585 
4586 
4587 
4588 
4589 
4590 
4591 
4592 
4593 
4594 
4595 
4596 
4597 
4598 
4599 
4600 
4601 
4602 
4603 
4604 
4605 
4606 
4607 
4608 
4609 
4610 
4611 
4612 
4613 
4614 
4615 
4616 
4617 
4618 
4619 
4620 
4621 
4622 
4623 
4624 
4625 
4626 



0034B 



0034C 

0034D 

0034E 
0034F 



00350 
00351 
00352 
00353 

00354 
00355 
00356 



# 








* 


XJMP 




* 


* 


DEF 


NEWWMAP 


* 


* 


DEF 


NEXTINST 


* 


* 






* 


* 


XJCQ 




* 


* 


DEF 


NEWWMAP 


* 


* 


ucr 








DEF 


NEWCQ 


* 


* 






* 










* 


LOADS 


NEW WORKING MAP SET FROM NEWWMAP. 


* 


* 


SETS 


PC TO NEXTINST AND CONTINUES. 


* 




TURNS 


MEMORY PROTECT ON IF SIGN BIT OF NEWMAP SET 


* 


* 






* 



XJCQ: 
/ 

XJMP : 

/ 

/ 

/ 

/ 

/ 

/ 
/ 

/ 
/ 



XJ05: 

/ 

/ 

/ 

/ 

/ 

/ 
/ 

/ 

/ 



CONT 

CJP GENMPV 



CCALL MRGIND 



CJP GETCQ 



CALL INDRES 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



AM2901 ,,N0P,ADD,AQ 

LODMSR SET ; 

AM2901 BR , TABQ , QREG , ADD , DZ 

CARRYL ; 

CONDEXT MPEN 

LUSRCOND ; 

LDMAR ; 

DREAD ; 
PC, NOP, PASS ,ZB 



CNMGO & 
AM2901 , 
CONDUSR SGN 
LDMAR 
AM2901 
CONDMSR SGN ; 

CREAD ; GETCQ IF INST WAS XJCQ 

AM2901 TAB,S1,RAMF,PASS,DZ 

LODMSR ; SI := NEWMAP; RESOLVE NEX 



; RESOLVE NEWMAP 
,NOP,ADD,AQ 



LOAD MAPX AND MAPD1 AND MAPD2 FROM THE NEW WMAP VALUE 

CONT & AM2901 SI , MAPX , NOP , AND , DA 

& LDAER 

& I MM H#001F ; SET EXECUTE MAP 

PUSH H#001 & AM2901 SI , SI , RAMA , PASS , DZ 

& SPRD RL4 ; 

RFCT & AM2901 , SI , SRAML , PASS , ZB 

4 SHIFT ROTATE ; POSITION DATA2 

CONT & AM2901 SI , MAPD2 , NOP , AND , DA 

& IMM H#001F ; LOAD DATA2 INTO MAPD2 

CONT & AM2901 , SI , SRAML , PASS , ZB 

& SHIFT ROTATE ; 

& ENCN SETTDI ; SET TDI 

CALL SETAB & AM2901 SI , SI , RAMA . PASS , DZ 

& SPRD RL4 ; POSITION DATA1 

CONT & AM2901 SI , MAPD1 , NOP , AND , DA 

& IMM H#001F ; LOAD DATA1 INTO MAPD1 
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4627 
4628 
4629 
4630 
4631 
4632 
4633 
4634 
4635 
4636 
4637 
4638 
4639 
4640 
4641 
4642 
4643 
4644 
4645 
4646 
4647 
4648 
4649 
4650 
4651 
4652 



00357 



00358 



00359 



0035A 



0035B 



0035C 



0035D 



TURN ON MEM PROTECT IF SIGN OF WMAP WAS SET 



0035E 



/ 
/ 

/ 

GETCQ : 
/ 

/ 
/ 
/ 

/ 

/ 

/ 

/ 
/ 
/ 
/ 



CJP INCFTCH 

JP INCFTCH 

CALL INDRES 
CONT 

CALL READRES 

LDCT XJ05 

JRP $+1 
JRP 



4 AM2901 , , NOP, PASS, ZQ 
& CONDMSR NSGN 

4 LDMAR ; MAR := NEXTINST 

& AM2901 , , NOP , ADD , AQ 

4 ENCN SETMPEN TURN M.P. SYS ON 



4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 



AM2901 TAB,S1,RAMF,PASS,DZ 



LODMSR 

AM2901 

CARRYH 

LDMAR 

CREAD 

AM2901 

SPNOP 

AM2901 



; S1=NEWMAP; 
PC, NOP, ADD, ZB 



MSR = MPEN 



, S2 , RAMF 



,S2,QREG 



SPETC SETCS 



READ NEWCQ 
PASS.ZQ 

RESOLVE NEWCQ 
PASS.ZB 

QREG = NEXTINST; 



TURN CSM 



AM2901 TAB, Q, RAMF, PASS, DZ 
CONDEXT SIGN IF CSMODE SB. 

AM2901 Q,Q, SRAMR ,ADD ,AB 
CARRYL 



ON, JR 



CONDEXT 
SHIFT B#0000 
SPETC CLRCS 



CONDEXT IS MPEN 

Q<15> = 0 

TURN OFF CSMODE 



(ALWAYS J 
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4654 


***************************************************************^ 


4655 
















4656 






DMS Move Instruction Group 


* 


4657 


* 














4658 


* 


Mo ve 


Wo rd s : 










4659 


* 












3k 


4660 


* 




MW00 


— rno v e 


WU 1 U a 


from FXFfllTF tn FXFrMITF 

1 1 Ulll LALuU 1 L I U tALvU 1 C 


3k 


4661 


* 




MW01 


- mo v g 


wo r d S 


from FXFfllTF tn flATAI 

1 1 Will LALuU 1 L 1 U L/n 1 M X 




4662 


* 




MW02 


— mQ y g 


wo r d s 


from FXFfllTF tn DATA? 


* 




* 




MW10 


- mo v e 


wo rd s 


from DATA1 to EXFCUTF 

■ IV III l/n 1 Hi IV L ALvw 1 t 




4664 


* 




MW11 


- jflQ y g 


wo r d s 


from DATA1 to DATA! 

i i viii l/ n i nx i v wn i o x 


* 


4665 


* 




MW12 


- ff|Q y g 


wo r d s 


from DATA1 to DATA? 

i i viii u/n I MX i v Ltn I n £. 


sk 


4666 






MW20 


- (iiQ y g 


wo r d s 


from DATA2 to EXECUTF 


3k 


4667 


* 




MW21 


- f|)Q y q 


wo r d s 


from DATA2 to DATA1 

■ i viii r* i I* Cm i v l/ n i n x 


3k 


4668 


* 




MW22 


- ff|0 V 6 


wo r d s 


from DATA2 to DATA? 

i i vim \j n i n £. i v i r^t. 


3k 


4669 


* 












3k 


4670 


* 


Move 


By t e s : 








3k 


4671 


* 












3k 


4672 


* 




MROO 

I'lDVU 


~ mo v g 


d y t 6 s 


frnm FXFPIITF ♦ a F VFfllTF 

1 rOm L ALL/ U f C XO LAlLU 1 c 




4673 


* 




MB01 


- p^Q y g 


bytes 


f rom FXFCUTF t o DATA1 

1 IVIII L ALwU 1 L IV L/n 1 n X 


* 


4674 


* 




MB02 


- mo v g 


bytes 


from FXFfUITF tn DATA9 




f D / □ 


* 




MB10 


- move 


bytes 


from DATA1 to EXECUTE 


3k 


4676 


* 




MB11 


- move 


by t es 


from DATA1 to DATA1 


* 


4677 


* 




MB12 


- move 


byt es 


from DATA1 to DATA2 


3k 


4678 


* 




MB20 


- move 


by t es 


from DATA2 to EXECUTE 


3k 


4679 


* 




MB21 


- move 


by t es 


from DATA2 to DATA1 


3k 


4680 


* 




MB22 


- move 


bytes 


from DATA2 to DATA2 


± 


4681 


* 












3k 


4682 


* 


Operat ion : 








3k 


4683 


* 














AKRA 


* 




The A 


register contains the source address. The 


* 


4D03 


* 




B register contains the destination address. The 


* 


4686 


* 




X register contains the word count which can be 


* 


4687 






ze ro . 


When 


the instruction completes, A and B 


* 


4688 


* 




are incremented by 


the numbe r of words moved and 


* 


4689 


* 




X is 


ze ro . 


These 


instructions are interrupt ible. 


* 


4690 


* 












* 


4691 


******************************************** 
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4693 ;****« 

4694 ;***** MWOO/MBOO - EXEC TO EXEC 

4695 ;**«** 

4696 MOVOO: LDCT MOVBYTAB 4 AM2901 MAPX , S6 , RAMF , PASS , DZ 

4697 / 4 LODMSR SET ; SAME MAP 

4698 0035F / 4 LDAER ; AER = FROM 

4699 JRP MOVWRDAB 4 AM2901 MAPX , S7 , RAMF , PASS ,DZ 

4700 00360 / 4 CONDEXT IR11 ; 

4701 ; 

4702 ; MW01/MB01 - EXEC TO DATA1 

4703 ; 

4704 M0V01: LDCT MOVBYTA 4 AM2901 MAPX , S6 , RAMF , PASS , DZ 

4705 / 4 LODMSR RESET ; DIFFERENT MAP 

4706 00361 / 4 LDAER ; AER = FROM 

4707 JRP MOVWRDA 4 AM2901 MAPD1 , S7 , RAMF , PASS , DZ 

4708 00362 / 4 CONDEXT IR11 ; 
4709 

4710 ; MW02/MB02 - EXEC TO DATA2 

4711 ; 

4712 M0V02: LDCT MOVBYTA 4 AM2901 MAPX , S6 , RAMF , PASS , DZ 

4713 / 4 LODMSR RESET ; DIFFERENT MAP 

4714 00363 / 4 LDAER ; AER = FROM 

4715 JRP MOVWRDA 4 AM2901 MAPD2 , S7 , RAMF , PASS , DZ 

4716 00364 / 4 CONDEXT IR11 ; 

4717 ; 

4718 ; MW10/MB10 - DATA1 TO EXEC 
4719 

4720 M0V10: LDCT MOVBYTB 4 AM2901 MAPD1 , S6 , RAMF , PASS , DZ 

4721 / 4 LODMSR RESET ; DIFFERENT MAP 

4722 00365 / 4 LDAER ; AER = FROM 

4723 JRP MOVWRDB 4 AM2901 MAPX , S7 , RAMF , PASS , DZ 

4724 00366 / 4 CONDEXT IR11 ; 

4725 ; 

4726 ; MW11/MB11 - DATA1 TO DATA1 

4727 ; 

4728 M0V11: LDCT MOVEBYTE 4 AM2901 MAPD1 , S6 , RAMF , PASS , DZ 

4729 / 4 LODMSR SET ; SAME MAP 

4730 00367 / 4 LDAER ; AER = FROM 

4731 JRP MOVWORD 4 AM2901 MAPD1 , S7 , RAMF , PASS , DZ 

4732 00368 / 4 CONDEXT IR11 ; 

4733 ; 

4734 ; MW12/MB12 - DATA1 TO DATA2 

4735 ; 

4736 M0V12: LDCT MOVEBYTE 4 AM2901 MAPD1 , S6 , RAMF , PASS , DZ 

4737 / 4 LODMSR RESET ; DIFFERENT MAP 

4738 00369 / 4 LDAER ; AER = FROM 

4739 JRP MOVWORD 4 AM2901 MAPD2 , S7 , RAMF , PASS , DZ 

4740 0036A / 4 CONDEXT IR11 ; 

4741 ; 

4742 ; MW20/MB20 - DATA2 TO EXEC 

4743 ; 

4744 M0V20: LDCT MOVBYTB 4 AM2901 MAPD2 , S6 , RAMF , PASS , DZ 

4745 / 4 LODMSR RESET ; DIFFERENT MAP 
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4746 
4747 
4748 
4749 
4750 
4751 
4752 
4753 
4754 
4755 
4756 
4757 
4758 
4759 
4760 
4761 
4762 
4763 
4764 



0036B 



0036C 



0036D 



0036E 



0036F 



00370 



M0V21 ; 

/ 

/ 



/ 



M0V22 

/ 

/ 



JRP MOVWRDB 



& LDAER ; AER = FROM 

& AM2901 MAPX,S7,RAMF,PASS,DZ 
& CONDEXT IR11 ; 



MW21/MB21 - DATA2 TO DATA1 



LDCT MOVEBYTE 



JRP MOVWORD 



& AM2901 MAPD2,S6,RAMF,PASS,DZ 
& LODMSR RESET ; DIFFERENT MAP 
& LDAER ; AER = FROM 

& AM2901 MAPD1,S7,RAMF,PASS,DZ 
& CONDEXT IR11 



MW22/MB22 - DATA2 TO DATA2 



LDCT MOVEBYTE 



JRP MOVWORD 



& AM2901 MAPD2,S6,RAMF,PASS,DZ 
& LODMSR SET ; SAME MAP 

& LDAER ; AER = FROM 

& AM2901 MAPD2,S7,RAMF,PASS,DZ 
& CONDEXT IR11 ; 
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4766 

4767 

4768 

4769 

4770 

4771 

4772 

4773 

4774 

4775 

4776 

4777 

4778 

4779 

4780 

4781 

4782 

4783 

4784 

4785 

4786 

4787 

4788 

4789 

4790 

4791 

4792 

4793 

4794 

4795 

4796 

47 9 7 

4798 

4799 

4800 

4801 

4802 

4803 

4804 



00371 



00372 



00373 



00374 



00375 



00376 



00377 



00378 



00379 



****************************************** 



MOVWORD 



This routine performs all the cross map move word 
instructions. At entry, S6 is the FROM map and 
S7 is the TO map. If the FROM map and the TO 
map are the same, the MSR is set, else reset. 



* 
* 
* 
* 
* 
* 
* 
* 



* * 
***************************************************************** 



MOVWRDA: JP 
/ 

MOVWRDAB: CONT 
/ 

MOVWRDB 

/ 



MOVWORD: 
/ 

MVWLOOP : 

/ 
/ 
/ 
/ 

MVW1 : 
/ 
/ 
/ 

/ 

SAMEMAP: 

/ 

/ 

/ 

/ 
/ 
/ 



CONT 
CJP 

JP 



MOVWORD 



CONT 
LDCT DMSEXIT 
JRP MVW1 



CJP SAMEMAP 



INTMVW 



MVWLOOP 



AM2901 BRE L , A , RAMF , ADD , ZB 
CARRYL ; BREL A 

AM2901 BREL, A, RAMF, ADD, ZB 
CARRYL ; BREL A, THEN B 

AM2901 BREL, B, RAMF, ADD, ZB 
CARRYL ; BREL B 

AM2901 , X, NOP, PASS, ZB 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
&. 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 

& CARRYH 
& LODUSR 
& LDAER 



; USR = COUNT STATUS 
RAMA, ADD, ZB 

; INC A IF NOT DONE 
; IF ZERO, DONE, 



LODUSR 
AM2901 A, A 
CARRYEXT 
CONDUSR NZ 
LDMAR ; 

CMGO & DREAD ; ELSE READ WORD 
AM2901 B,B, RAMA, ADD, ZB 
CARRYH ; 
CONDMSR SGN ; 

; MAR : 
S7, NOP, PASS, ZB 



NOP, PASS, DZ 

IF INT PEND, INTERRUPT 



LDMAR 
AM2901 
LDAER 
AM2901 

CONDEXT INTRPT 
LDMDOR ; 
DWRITE ; 
AM2901 S6,X,RAMA,SUBR,ZB 



LOOP 



TO" ADDRESS 
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4806 

4807 

4808 

4809 

4810 

4811 

4812 

4813 

4814 

4815 

4816 

4817 

4818 

4819 

4820 

4821 

4822 

4823 

4824 

4825 

4826 

4827 

4828 

4829 

4830 

4831 

4832 

4833 

4834 

4835 

4836 

4837 

4838 

4839 

4840 

4841 

4842 

4843 

4844 

4845 

4846 

4847 

4848 

4849 

4850 

4851 

4852 

4853 

4854 

4855 

4856 

4857 

4858 



0037A 

0037B 
0037C 
0037D 

0037E 
0037F 

00380 
00381 
00382 
00383 

00384 
00385 

00386 

00387 

00388 



****************************************** 



MOVBYTE 



This routine performs all the cross map move byte 
instructions. At entry, S6 is the FROM map and 
S7 is the TO map. If the FROM map and the TO map 
are the same, the MSR is SET, else the MSR is RESET. 



* 
* 
* 
* 
* 
* 
* 
* 
* 



***************************************************************** 



MOVBYTA : 
/ 

/ 
/ 



CONT 
CONT 

JP 

/ 

MOVBYTAB: CONT 



/ 
/ 

MOVBYTB: 
/ 

/ 
/ 

MOVEBYTE: CONT 
/ 



/ 



CONT 

CONT 
CONT 



CONT 
CONT 

/ 

LMOVBYT: CJP 

/ 

/ 

/ 

DMSEXIT: JP 
/ 

LMOVBYT1: CONT 
/ 



CONT 



CONT 



CJP 



MOVEBYTE 



LMOVBYT1 



FIXMAR 



MFMOD 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 

& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



AM2901 ,A,SRAMR,PASS,ZB 
SHIFT ROTATE ; A = WORD A 
AM2901 BREL , A , SRAML , ADD , ZB 
CARRYL ; 

SHIFT ROTATE ; BREL, RESTORE A 
AM2901 , , NOP.ADD.AQ 
SPNOP ; 
AM2901 ,A,SRAMR,PASS,ZB 
SHIFT ROTATE ; A=WORD A 
AM2901 BREL, A, SRAML, ADD, ZB 
CARRYL ; 

SHIFT ROTATE ; BREL A, RESTORE A 

AM2901 ,B,SRAMR,PASS,ZB 

SHIFT ROTATE ; B=W0RD B 

AM2901 BREL, B, SRAML, ADD, ZB 

CARRYL ; 

SHIFT ROTATE ; BREL B 

AM2901 S3,S3,RAMF,PASS,DZ 

I MM H#FF00 ; S3 = EVEN BYTE MASK 

AM2901 S3,S5,RAMF,EXNOR,ZA 

SPNOP ; S5 = ODD BYTE MASK 

AM2901 S6, X, NOP, PASS, ZB 



LODUSR 
AM2901 
CARRYEXT 
CONDUSR NZ 
LDAER 

AM2901 MAPX 
LDAER 



; USR = X 
S6,B, RAMA, ADD, ZB 

; INC B IF NOT DONE 



; SET FROM MAP 
NOP, PASS, DZ 
; AER = MAPX 



AM2901 A,SO,SRAMR,PASS,ZA 

SHIFT ROTATE ; MAKE SO "FROM" WORD ADDRE 

AM2901 B , SI , SRAMR , SUBR , ZA 

CARRYH ; B IS ONE TOO MANY 

SHIFT ROTATE ; MAKE SI "TO" WORD ADDRESS 

AM2901 , SO, NOP, PASS, ZB 

LODUSR ; 

LDMAR ; 

DREAD ; READ "FROM" WORD 

AM2901 S7,S1,N0P,PASS,ZB 



CONDUSR SGN 



IF SIGN, FROM ODD 
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4859 00389 / 4 LDMAR ; MAR = "TO" ADDRESS 

4860 CJP MEVTOEV 4 AM2901 S7 , A , RAMA , ADD , ZB 

4861 / 4 CARRYH ; INC A 

4862 / 4 CONDUSR NSGN ; IF SIGN, TO ODD 

4863 / 4 LDAER ; AER = "TO" MAP 

4864 0038A / 4 DREAD ; READ "TO" WORD 

4865 CALL BYTESWAP 4 AM2901 S3 , S4 , RAMF , AND ,DA 

4866 0038B / 4 SPNOP ; S4 = SWAPPED "FROM" BYTE 

4867 MEVSAVE: CONT 4 AM2901 S3 , S2 , RAMF , AND ,DA 

4868 0038C / 4 SPNOP ; S2 = "TO" EVEN BYTE 

4869 MWRBYTE: LDCT LMOVBYT 4 AM2901 S2 , S4 , NOP , OR , AB 

4870 / 4 LDMDOR 

4871 0038D / 4 DWRITE ; WRITE THE "TO" WORD 

4872 INTMVW: JRP INTERRPT 4AM2901 S6 , X , RAMF , SUBR , ZB 

4873 / 4 CARRYH ; DEC COUNT 

4874 / 4 CONDEXT INTRPT ; IF INT PENDING, SERVICE I 

4875 0038E / 4 LUSRCOND ; LOAD USR WITH COUNT STATU 

4876 ; 

4877 MEVTOEV: JP MODSAVE 4 AM2901 S3 , S4 , RAMF , AND ,DA 

4878 0038F / 4 SPNOP ; S4 = FROM BYTE 

4879 MFMOD: CJP MODTOOD 4 AM2901 S7 , A , RAMA , ADD , ZB 

4880 / 4 CARRYH ; INC A 

4881 / 4 CONDUSR SGN ; IF "TO" IS ODD 

4882 / 4 LDAER ; AER = "TO" MAP 

4883 00390 / 4 DREAD ; READ "TO" WORD 

4884 MODTOEV: CALL BYTESWAP 4 AM2901 S5 , S4 , RAMF , AND , DA 

4885 00391 / 4 SPNOP ; S4 = FROM BYTE, SWAP IT 

4886 MODSAVE: JP MWRBYTE 4 AM2901 S5 , S2 , RAMF , AND , DA 

4887 00392 / 4 SPNOP ; S2 = ODD "TO" BYTE 

4888 ; 

4889 MODTOOD: JP MEVSAVE 4 AM2901 S5 , S4 , RAMF , AND , DA 

4890 00393 / 4 SPNOP ; S4 = FROM BYTE 
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4892 
4893 
4894 
4895 
4896 
4897 
4898 
4899 
4900 



INDMS - RESOLVE INDIRECT WITHOUT MAKING THE FINAL 
ADDRESS BASE RELATIVE, AND WITHOUT READ 
OF OPERAND 

( USED BY DMS CROSS MAP INSTRUCTIONS) 



* 
* 



4901 




INDMS: 


LDCT 


H*001 


& 


AM2901 BR , TABQ , QREG , ADD , DZ 


4902 




/ 






& 


CARRYL ; 


4903 




/ 






& 


LDMAR ; 


4904 


00394 


/ 






& 


DREAD 


4905 




INDMS1 : 


CRET 




& 


AM2901 TAB, , QREG , PASS , DZ 


4906 




/ 






& 


CONDEXT ; 


4907 




/ 






& 


MWAIT ; CONDEXT IS 


4908 


00395 


/ 






& 


LDMAR 


4909 






RPCT 


INDMS1 


& 


AM2901 BR, TABQ, QREG, ADD, DZ 


4910 




/ 






& 


CARRYL ; 


4911 




/ 






& 


LDMAR ; 


4912 


00396 


/ 






& 


DREAD ; 


4913 






CRET 




& 


AM2901 TAB, , QREG, PASS, DZ 


4914 




/ 






& 


CONDEXT ; 


4915 




/ 






& 


MWAIT ; CONDEXT IS 


4916 


00397 


/ 






& 


LDMAR 


4917 






CJP 


INTERRPT 


& 


AM2901 ,,NOP,ADD,AQ 


4918 


00398 


/ 






& 


CONDEXT INTRPT ; 


4919 






JP 


INDMS 


& 


AM2901 ,,NOP,ADD,AQ 


4920 


00399 


/ 






& 


SPNOP ; 



NSIGN 



NSIGN 
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4922 

4923 

4924 

4925 

4926 

4927 

4928 

4929 

4930 

4931 

4932 

4933 

4934 

4935 

4936 

4937 

4938 

4939 

4940 

4941 

4942 

4943 

4944 

4945 

4946 

4947 

4948 

4949 

4950 

4951 

4952 

4953 

4954 

4955 

4956 

4957 

4958 

4959 

4960 

4961 

4962 

4963 

4964 

4965 

4966 

4967 

4968 

4969 

4970 

4971 

4972 

4973 

4974 



MBYTE - MOVE BYTES A TO B , SO TIMES >0 



0039A 
0039B 
0039C 

0039D 

0039E 
0039F 
003A0 

003A1 
003A2 

003A3 

003A4 

003A5 
003A6 

003A7 
003A8 

003A9 



MBYTE : 

/ 

/ 



/ 
/ 

/ 
/ 
/ 

/ 
/ 

/ 
/ 

EVLOOP: 

/ 
/ 
/ 

EVENT: 

/ 

/ 

/ 
/ 
/ 

/ 
/ 
/ 

ENDEV: 

/ 

/ 

/ 

/ 



CONT 
CONT 
CONT 
CONT 

CJP ONEBYTE 

CJP FROMOD 
CJP EVTOOD 
CJP ENDEV 

CONT 

CJP INTEV 

JP EVLOOP 

CONT 

CONT 
CONT 

CJP SKIP 
CONT 

CONT 



& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 



AM2901 , A , SRAMR , PASS , ZB 

SHIFT ROTATE ; A = SOURCE WORD ADDRESS 
AM2901 , B, SRAMR, PASS, ZB 

SHIFT ROTATE ; B : = DEST WORD ADDRESS 
AM2901 ,SO,SRAMQR,PASS,ZB 
SHIFT B#0110 ; SO : = WORD COUNT 
AM2901 , SO , RAMF , SUBR , ZB 
CARRYH ; 
LODMSR 
AM2901 
CONDUSR SGN 
LDMAR 
DREAD 
AM2901 
CONDUSR SGN 
LDMAR 



WC-1; MSR=USR=STATU 



; SO : = 

A, NOP, PASS, ZB 
IF BYTE COUNT WAS 
USR = A 

READ SOURCE WORD 

B, NOP, PASS, ZB 



1. JP 



IF SOUCE ADDRESS ODD, JP 



AM2901 TAB, S4, RAMF, PASS, DZ 



IF 'TO' IS ODD, 
DEST WORD. S4 



JP AND RE 
SOURCE W 



CONDUSR SGN 
CMGO & DREAD 
AM2901 TAB, TAB, NOP, PASS, DZ 
CONDMSR Z ; 
LDMDOR ; 

; WRITE 2 BYTES; END IF S0= 
, A , RAMF , ADD , ZB 



DWRITE 
AM2901 
CARRYH 
LDMAR 
AM2901 
CARRYH 

CONDEXT INTRPT 
CNMGO 4 DREAD 



; INC A; 
, B, RAMF, ADD, ZB 



MAR=NEXT SOURCE AD 



CHECK FOR INT; INC B 



AM2901 B, SO, RAMA, SUBR, ZB 



CARRYH 
LODMSR 
LDMAR 
AM2901 
CARRYH 

SHIFT ROTATE 
LDMAR 



A , SRAML 



AM2901 B, 
LODMSR 



& 
& 
& 



DEC SO 

MSR = STATUS 
MAR = NEXT DEST ADDR 
ADD , ZB 
INC A 

RESTORE A TO BYTE ADDRESS 
MAR = LAST SRC ADDR 
NOP.EXOR.AQ 

DO COUNT AND DEST ADDR HA 
ODD PARITY? 
ADD , ZB 



B, SRAML 



AM2901 
CARRYH 

SHIFT ROTATE 
& AM2901 , , NOP , ADD , AQ 
& CONDMSR NSGN ; IF EVEN PARITY 
& AM2901 B, SI, SRAMR, PASS, ZA 
& SHIFT ROTATE ; SI = DEST WORD ADDRESS 
& DREAD ; READ SOURCE WORD 

& AM2901 SI, A, RAMA, ADD, ZB 



INC B ; RESTORE B TO BYTE 



DONE 
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4975 
4976 
4977 
4978 
4979 
4980 
4981 
4982 
4983 
4984 
4985 
4986 
4987 
4988 
4989 
4990 
4991 
4992 
4993 
4994 
4995 
4996 
4997 
4998 
4999 
5000 
5001 
5002 
5003 
5004 
5005 
5006 
5007 
5008 
5009 
5010 
5011 
5012 
5013 
5014 
5015 
5016 
5017 
5018 
5019 
5020 
5021 
5022 
5023 
5024 
5025 
5026 
5027 
5028 



003AA 
003AB 
003AC 
003AD 
003AE 

003AF 

003B0 
003B1 

003B2 
003B3 

003B4 
003B5 
003B6 
003B7 

003B8 
003B9 



003BA 

003BB 
003BC 

003BD 



/ 
/ 

/ 

STEV: 
/ 



/ 
/ 

INCBPC: 

/ 

/ 

/ 

EVTOOD: 
/ 

/ 
/ 
/ 



/ 
/ 

/ 

/ 

ODLOOP : 

/ 

I 
/ 
/ 

ODE NT: 

/ 

/ 
/ 
/ 
/ 

/ 
/ 

/ 

/ 
/ 

ENDOD: 



CONT 
CONT 
CONT 
CONT 
CONT 

JP INCPC 

CONT 
CONT 

CONT 
CONT 

CALL BYTESWAP 

CONT 

CONT 

CJP ENDOD 
CONT 

CJP INTOD 



CONT 

CALL BYTESWAP 
JP ODLOOP 

CONT 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



CARRYH 
LDMAR 



INC A 

LOAD MAR WITH DEST ADDR 



AM2901 TAB, S4.RAMF, PASS, DZ 



DREAD 
AM2901 S4, 
I MM H#FF00 



; S4=SRC WORD ; 
QREG , AND , DA 

; Q:= SRC BYTE 



READ DEST W 



AM2901 TAB,S3,RAMF,PASS,DZ 
SPNOP ; S3=DEST WORD 

AM2901 S3,S3,RAMF,N0TRS,DA 
IMM HiFFOO ; KEEP ODD BYTE 

AM2901 S3, TAB, NOP, OR, AQ 
LDMDOR 

DWRITE ; OR BYTES; WRITE WORD 

AM2901 PC, B, RAMA, ADD, ZB 
CARRYH 
LDMAR 

IFETCH ; INC B; FETCH NEXT INST 

AM2901 ,SO,SRAMQL,PASS,ZB 

SHIFT B#0110 ; RESTORE BYTE COUNT TO SO 
AM2901 , SO , SRAMQR , SUBR , ZB 



CARRYH 
SHIFT B#0110 
LODMSR 

AM2901 A.A.RAMF 
IMM H#8000 
AM2901 B , B , RAMF 
CARRYL 
IMM H#8001 



DEC BC 

SO = WORD COUNT 

MSR=BC 
OR ,DA 

INC BA IN A 
ADD, DA 

INC BA IN B 



AM2901 TAB, SI, RAMF, PASS, DZ 



SPNOP 



S1=INIT DEST WORD; SWAP S 



AM2901 SI, SI, RAMF, AND, DA 



IMM H#FFOO 



S1=EVEN BYTE 



AM2901 S4 , S3 , RAMF , NOTRS , DA 
IMM H#FF00 ; S3=0DD BYTE 

AM2901 S3, SI, NOP, OR, AB 
CONDMSR SGN 
LDMDOR 
DWRITE 



WRITE DEST WORD; IF WC<0 



AM2901 S4, SI, RAMF, AND, DA 



IMM H#FF00 
AM2901 , A, RAMF 
CARRYH 

CONDEXT INTRPT 
LDMAR 

CNMGO & DREAD 
AM2901 , SO, RAMF 



S1=EVEN BYTE 
ADD , ZB 
INC A 

CHECK FOR INTERRUPT 



SUBR ,ZB 
DEC WORD COUNT 
MSR = WORD COUNT STATUS 



CARRYH 
LODMSR 

AM2901 TAB, S4, RAMF, PASS, DZ 

SPNOP ; S4=SWAPPED NEXT SRC WORD 

AM2901 B,B, RAMA, ADD, ZB 

CARRYH ; INC B 

LDMAR ; MAR =DEST ADDR 

AM2901 , A , SRAML , ADD , ZB 
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5029 

5030 

5031 

5032 

5033 

5034 

5035 

5036 

5037 

5038 

5039 

5040 

5041 

5042 

5043 

5044 

5045 

5046 

5047 

5048 

5049 

5050 

5051 

5052 

5053 

5054 

5055 

5056 

5057 

5058 

5059 

5060 

5061 

5062 

5063 

5064 

5065 

5066 

5067 

5068 

5069 

5070 

5071 

5072 

5073 

5074 

5075 

5076 

5077 

5078 

5079 

5080 

5081 

5082 



003BE 
003BF 

003C0 

003C1 

003C2 
003C3 
003C4 
003C5 
003C6 
003C7 
003C8 

003C9 
003CA 
003CB 

003CC 
003CD 

003CE 
003CF 

003D0 
003D1 



/ 
/ 

/ 
/ 
/ 

FROMOD: 

/ 
/ 



/ 

ODTOOD: 
/ 

/ 

/ 

/ 

/ 
/ 

/ 

/ 

/ 
/ 
/ 

/ 
/ 

ONEBYTE : 

/ 
/ 

/ 

/ 
/ 
/ 



LDCT SKIP 
CONT 

JRP STEV 

CJP ODTOOD 
CONT 

JP ODENT 

CONT 

CONT 

CONT 

CONT 

LDCT EVENT 

CONT 
CONT 
CONT 

JRP ENDEV 

CONT 

CONT 
CONT 

CJP FMOD 
CONT 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 

& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



CARRYEXT ; 

CONDMSR Z ; 

SHIFT ROTATE ; RESTORE A 

AM2901 B, , NOP , EXOR , AQ 

LODMSR ; MSR = PARITY 

AM2901 ,B,SRAML,PASS,ZB 

SHIFT ROTATE ; 

LDMAR ; RESTORE B ; MAR = DEST AD 

AM2901 , A , RAMF , ADD , ZB 

CARRYEXT ; IF ODD PARITY: JP, 

CONDMSR SGN ; STORE BYTE, AND INC A 

CMGO & DREAD ; ELSE DONE (JR) 

AM2901 TAB, S4, RAMF, PASS, DZ 

CONDUSR SGN ; IF 'TO' ODD, JP & READ DE 

CMGO 4 DREAD ; R4 = SOURCE WORD 

AM2901 S4.S4, RAMA, PASS, DZ 

SPRD RL4 ; SWAP R4 

AM2901 S4, S4, RAMA, PASS, DZ 

SPRD RL4 ; AND JP TO ODENT 

AM2901 B , B , RAMA , NOTRS , DA 

IMM H«8000 ; DEC BA IN B 

AM2901 TAB, S2, RAMF, PASS, DZ 

SPNOP ; S2 = DEST WORD 

AM2901 S2, S3, RAMF, AND, DA 

IMM H#FF00 ; Q = EVEN BYTE 

AM2901 S4.S4, RAMF, NOTRS, DA 

IMM H#FF00 ; S4 = ODD BYTE 

AM2901 S4, S3, NOP, OR ,AB 

LDMDOR ; 

DWRITE ; WRITE ONE BYTE 

AM2901 A, A, RAMF, NOTRS, DA 

IMM H#8000 ; DEC BA IN A 

AM2901 ,SO,SRAMQL,PASS,ZB 

SHIFT B#0110 ; SO =BYTE COUNT 

AM2901 ,S0,SRAMQR,SUBR,ZB 

CARRYH ; 

SHIFT B#0110 ; 

LODUSR ; DEC BC ; SO = WC ; USR=BC 

AM2901 , SO, RAMF, ADD, ZB 
CARRYH ; 

CONDUSR SGN ; FIX SO FOR EVENT 

AM2901 B,S1,RAMA,EXN0R,DZ 
IMM H#FF00 ; SI = BYTE MASK 

LDMAR ; MAR = DEST ADDR 

AM2901 A, B, NOP, EXOR ,AB 
LODMSR ; MSR = PARITY 

AM2901 , A , SRAML , PASS , ZB 
LODUSR ; USR = A 

SHIFT ROTATE ; RESTORE A 
DREAD ; READ DEST 

AM2901 TAB, S4, RAMF , PASS, DZ 



CONDUSR SGN 



S4=S0URCE WORD: IF FROM OD 



AM2901 SI, S4, RAMF, NOTRS, AB 
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5083 
5084 
5085 
5086 
5087 
5088 
5089 
5090 
5091 
5092 
5093 
5094 
5095 
5096 
5097 
5098 
5099 
5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 
5108 
5109 
5110 
5111 
5112 
5113 



003D2 

003D3 
003D4 
003D5 

003D6 

003D7 
003D8 
003D9 

003DA 
003DB 
003DC 
003DD 
003DE 
003DF 



/ 

ONE .A: 

/ 

/ 

/ 

/ 

ONE .B: 

/ 

/ 

/ 
/ 

FMOD: 
/ 

TOOD: 
/ 

INTOD: 

/ 

/ 

INTEV: 
/ 

/ 

/ 

/ 



CONT 

CJP TOOD 
CONT 

CCALL BYTESWAP 

JP INCBPC 

JP ONE. A 
JP ONE . B 

CONT 
CONT 
CONT 
CONT 
CONT 

JP INTPEND 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 

& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



SPNOP ; S4 = EVEN SOURCE BYTE 

AM2901 ,B,SRAML,PASS,ZB 

LODUSR ; USR = B 

SHIFT ROTATE ; RESTORE B 

AM2901 TAB,S3,RAMF,PASS,DZ 

CONDUSR SGN ; S3 = DEST WORD ; IF DEST 

AM2901 SI , S3 ,QREG ,AND ,AB 

SPNOP ; Q = ODD DEST BYTE 

AM2901 , A , RAMF , ADD , ZB 

CARRYH ; INC A 

CONDMSR SGN ; IF ODD PARITY, SWAP S4 
AM2901 S4,TAB,N0P,0R,AQ 
LDMDOR ; 

DWRITE ; WRITE BYTE, GO INC B AND 

AM2901 SI , S4 , RAMF , AND , AB 

SPNOP ; S4 = ODD SOURCE BYTE 

AM2901 S1,S3,QREG,N0TRS,AB 

SPNOP ; Q = EVEN DEST BYTE 



, A , RAMF , SUBR , ZB 
; FIX A 
, SO, RAMF, ADD, ZB 

; INC SO 
,A,SRAML,PASS,ZB 

RESTORE A 



AM2901 
CARRYH 
AM2901 
CARRYH 
AM2901 

SHIFT ROTATE 
AM2901 ,B,SRAML,PASS,ZB 
SHIFT ROTATE ; RESTORE B 
AM2901 ,SO,SRAMQL,PASS,ZB 
SHIFT B#0110 ; RESTORE COUNT 
AM2901 , SO, RAMF, SUBR, ZB 
CARRYH ; MODIFY SO FOR INTPEND 
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5115 

5116 

5117 

5118 

5119 

5120 

5121 

5122 

5123 

5124 

5125 

5126 

5127 

5128 

5129 

5130 

5131 

5132 

5133 

5134 

5135 

5136 

5137 

5138 

5139 

5140 

5141 

5142 

5143 

5144 

5145 

5146 

5147 

5148 

5149 

5150 

5151 

5152 

5153 

5154 

5155 

5156 

5157 

5158 

5159 

5160 

5161 

5162 

5163 

5164 

5165 

5166 

5167 



003E0 
003E1 
003E2 



003E3 

003E4 
003E5 
003E6 
003E7 

003E8 

003E9 
003EA 

003EB 
003EC 
003ED 
003EE 

003EF 
003F0 

003F1 
003F2 



FILL: 
/ 

/ 



/ 
/ 
/ 
/ 

/ 
/ 

/ 

/ 

/ 

FILLCONT: 

/ 
/ 

FILLOOP: 

/ 
/ 
/ 

/ 
/ 

/ 
/ 
/ 

FILLTOOD: 

/ 

/ 

/ 

/ 
/ 



/ 
/ 
/ 

/ 

/ 



CONT 
CONT 
CONT 
CONT 



CJP ONEBYTE 

CJP FILLTOOD 
CONT 

CALL L4M0RE 
CONT 

CJP ENDOD 

CJP INTEV 
JP FILLOOP 

CONT 

CALL BYTESWAP 

CONT 

CONT 

CONT 
CONT 

CONT 
CONT 



4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
& 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

& 

& 

& 

& 

& 

& 

& 



1:35 PM TUE., 13 SEPT, 1983 PAGE 128 



AM2901 ,A,SRAMR,PASS,ZB 
SHIFT ROTATE ; A = SRC WORD ADDRESS 
AM2901 ,B,SRAMR,PASS,ZB 
SHIFT ROTATE ; B = DEST WORD ADDRESS 
AM2901 ,SO,SRAMQR,PASS,ZB 
SHIFT B#0110 ; SO = WORD COUNT 
AM2901 A,SO,RAMA,SUBR,ZB 
CARRYH 

SO = MSR = WC - 1 



LODMSR 
LDMAR 
DREAD 
AM2901 
CONDUSR SGN 
LDMAR 



READ SOURCE WORD 
B, NOP, PASS, ZB 

IF WC-1 IS NEG, JP 
MAR = DEST ADDR 
AM2901 TAB , S3 , RAMF , PASS , DZ 

CONDUSR SGN ; S3=SRC W0RD;JP4MG0 IF DE 
AM2901 S3,S3,RAMF,N0TRS,DA 
IMM HiFFOO 

AM2901 S3 , S4, RAMA, PASS, DZ 
SPRD RL4 

AM2901 S3 , S4 , RAMF , OR , AB 
LDMDOR ; 
DWRITE 

AM2901 ,B, RAMF, ADD, ZB 
CARRYH 
CONDMSR Z 
LDMAR 

AM2901 , A , RAMF , ADD , ZB 
CARRYH 

CONDEXT INTRPT 
AM2901 ,S0,RAMF,SUBR,ZB 
CARRYH 
LODMSR 
DWRITE 

AM2901 S3, S4, RAMF, AND, DA 
IMM H#FF00 

AM2901 TAB, S2 , RAMF, PASS, DZ 
SPNOP ; 
AM2901 S2 , S2 , RAMF , AND , DA 
IMM H#FF00 ; 
AM2901 S2,S4,N0P,OR,AB 
LDMDOR ; 
DWRITE ; 
AM2901 , SO , SRAMQL , PASS ,ZB 
SHIFT BttOllO ; RESTORE BYTE COUNT 
AM2901 ,SO,SRAMQR,SUBR,ZB 
CARRYH 



& LODMSR 

& SHIFT B#0110 

4 AM2901 A, A, RAMF 

4 IMM H#8000 

4 AM2901 B , B , RAMF 

4 CARRYL 



BC=BC-1 ; S0=WC ;MSR=BC 
OR , DA 

INC BA IN A 
ADD , DA 
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5168 
5169 
5170 
5171 
5172 
5173 
5174 
5175 
5176 
5177 
5178 
5179 



003F3 
003F4 
003F5 
003F6 
003F7 
003F8 



/ 
/ 

/ 

/ 

/ 

I 

SETMSR 

/ 



CONT 



CJP 



CONT 



JP 



JP 



SETMSR 



ENDEV 



FILLCONT 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
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I MM H#8001 ; 
LDMAR ; INC BA IN B 

AM2901 S3 , S3 , R AMF , AND , DA 
IMM H#FF00 ; 
AM2901 , SO, NOP, PASS, ZB 
CONDMSR NSGN ; IF S0<0, END 
AM2901 , A , RAMF , SUBR , ZB 
CARRYH ; DEC A 

AM2901 ,B, RAMF, SUBR, ZB 
CARRYH ; DEC B 

AM2901 , SO, NOP, PASS, ZB 

LODMSR ; SET MSR = COUNT STATUS 
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5181 
5182 
5183 
5184 
5185 
5186 
5187 
5188 
5189 
5190 
5191 
5192 
5193 



003F9 



003FA 



003FB 



003FC 



INCS5 

/ 



PATCH AREA 
RET 



VMAFPAT: JZ 
/ 



XFER: CONT 

I 

JP XFCONT 



& AM2901 
& CARRYH 
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,S5 , RAMF , ADD, ZB 
; INC S5 



& AM2901 , A, RAMF .PASS, DZ 

& IMM H#0050 ; A = ERROR 80 (DEC) 

& AM2901 BRE L , A , RAMF , ADD , ZB 
& CARRYL ; BREL A 

& AM2901 BRE L,B, RAMF, ADD, ZB 
& CARRYL ; BREL B 
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5195 
5196 
5197 
5198 
5199 
5200 
5201 
5202 
5203 
5204 



003FF 
003FF 

003FF 



********************************************** 

* * 

* SELF TEST JUMPS TO LAST WORD IN uSTORE * 

* * 
***************************************************************** 

ORG H#3FF 

LASTWD: JP INTPONOK &AM2901 , B , RAMF , ADD , ZB 

/ & CARRYH ; B := 1 FOR LED'S 



D-127 



A600+ BASESET MICROCODE 6/15/83 ** [&LBRB1 ] 
LINE ADDR STATEMENT 



1:35 PM TUE., 13 SEPT, 1983 PAGE 132 



5206 

5207 

5208 

5209 

5210 

5211 

5212 

5213 

5214 

5215 

5216 

5217 

5218 

5219 

5220 

5221 

5222 

5223 

5224 

5225 

5226 

5227 

5228 

5229 

5230 

5231 

5232 

5233 

5234 

5235 

5236 

5237 

5238 

5239 

5240 

5241 

5242 

5243 

5244 

5245 

5246 

5247 

5248 

5249 

5250 

5251 

5252 

5253 

5254 

5255 

5256 

5257 



00400 

00401 

00402 

00403 
00404 
00405 
00406 

00407 

00408 

00409 
0040A 

0040B 
0040C 



/ 

C.Z 
/ 

cz. 
/ 

ADQ 

/ 

/ 

CIQ 

/ 
/ 

/ 
/ 
/ 



*************************************** 

* * 

* 2K BASESET ROM AREA * 

* * 

****************************************)|t)( t *** ) (t**)| C **5( C# ** ########## 

*************************************#**)( C **)(C**3) C )(C* # 5 |C * ## * # *j )t## ^ ##3(t# 

* * 

* CDS Instructions * 

* - * 

* * 

* These instructions implement the stack * 

* features of CDS. * 

* * 
***********************************************************)((***** 

CQ: CONT & AM2901 CAB , Q , RAMF , EXOR ,DA 

& I MM H#8000 ; TEST CSMODE BIT 

& LUSRCOND ; ! LOADS WITH CARRY INVERT 

CJP SRG2N0P & AM2901 CAB , Q , RAMF , AND , AB 

& CONDUSR ; MSETCS *= CONDUSR S6N 

& SPETC SETCS ; LOAD Q; TURN ON CSMODE 
IF CSMODE SB. ON, JP 
CQ05: JP SRG2N0P &AM2901 ,,NOP,ADD,AQ 

SPETC CLRCS ; TURN OFF CSMODE; JP 
FETCH & AM2901 Q , CAB , RAMF , PASS , ZA 

CONDEXT CSON ; 

IFETCH ; IF CSMODE ON, DONE 

AM2901 CAB, CAB, RAMF , OR , DA 
IMM H#8000 ; OR IN CSMODE BIT 

AM2901 CAB, ZREG, RAMF, PASS, ZA 
IFETCH ; PUT A/B IN Z ; FETCH 

AM2901 ZREG, CAB, RAMF, PASS, ZA 



C 
/ 
/ 

/ 
/ 

C 
/ 

CCQ 
/ 
/ 



CJP 



JZ 



JZ 



JZ 



JZ 



CONT 



CONT 



CONT 



CONT 



JZ 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



IFETCH 
AM2901 
& CARRYL 
& IFETCH 
& AM2901 
& IMM H#0020 
& LDAER 

& AM2901 , ,N0P 
& IMM IQLOC 
& LDMAR 
& DREAD 
& AM2901 MAPX, 
& LDAER 
& AM2901 
& CARRYH 
& LDMAR 
& IFETCH 
4 AM2901 
& SPNOP 



; PUT Z IN A/B; 
Q, CAB, RAMF , ADD, AB 



NOP, PASS, DZ 



FETCH 



; POINT AER AT BOOT MEMORY 
PASS.DZ 



; READ INTERRUPTED_Q 
NOP, PASS, DZ 

; PUT MAPX BACK IN AER 
PC.NOP.SUBR ,ZB 



; FETCH NEXT INST 
CAB, RAMF, PASS, DZ 

; PUT IQ IN A/B 
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LINE ADDR STATEMENT 

5259 ; ******************************************* 

5260 ;* * 

5261 ;* .SDSP - Store display to memory * 

5262 ;* * 

5263 ; ***************************************************************** 

5264 ;***** 

5265 .SDSP: CALL INDRES & AM2901 PC , SO , RAMA , PASS ,DZ 

5266 / & LODMSR ; MSR = (DL=0) 

5267 / & LDMAR ; 

5268 0040D / & CREAD ; SO :* DL; RESOLVE SECOND 

5269 CJP TWIEXIT & AM2901 Q , TAB , RAMF , PASS , ZA 

5270 / & CONDMSR Z ; 

5271 / & LDMDOR ; 

5272 0040E / & DWRITE ; WRITE Q; IF DL=0, EXIT 

5273 CONT & AM2901 , SO , RAMF , SUBR , ZB 

5274 / & CARRYH ; 

5275 0040F / & LODMSR ; DEC SO 

5276 CONT & AM2901 Q, SI , RAMF , PASS, ZA 

5277 / & LDMAR ; 

5278 00410 / & DREAD ; READ STATIC_Q; SI : = Q 

5279 SDSPL: LDCT $ &AM2901 , , QREG , ADD , ZQ 

5280 / & CARRYH ; 

5281 00411 / & LDMAR ; INC DSP ADDRESS; LDMAR 

5282 CJP TWIEXIT & AM2901 TAB , SI , RAMF , PASS , DZ 

5283 / & CONDMSR Z ; 

5284 / & LDMDOR 

5285 00412 / & DWRITE ; WRITE STATICJ); IF R8=0,E 

5286 JRP INTERRPT & AM2901 SI , SO , RAMA , SUBR , ZB 

5287 / & CARRYH ; 

5288 / & CONDEXT INTRPT ; 

5289 / & LODMSR ; 

5290 / & LDMAR ; 

5291 00413 / & DREAD ; READ NEXT STATIC_Q 
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LINE ADDR STATEMENT 



5293 ; ***************************************** 

5294 ;* * 

5295 ;* PCAL - Procedure call * 

5296 ;* * 

5297 ;* There are 5 versions of PCAL, all of which are * 

5298 ;* very similar. * 

5299 ;* * 

5300 ;* PCALI : Internal PCAL (to same segment) * 

5301 ;* PCALX : External PCAL (to possibly different segment) * 

5302 ;* PCALV : Like PCALX, only the label to be called is in * 

5303 ;* data space instead of code space * 

5304 ;* PCALR : PCAL to old code, ENTR compatible * 

5305 ;* PCALN : PCAL to old code, . ENTN compatible * 

5306 ;* * 

5307 ; ***************************************************************** 

5308 ;* * 

5309 ;* PCALI + > pe DEC fs * 

5310 ;* DEF pe [ ,1] + * 

5311 ;* DEC ac * 

5312 ;* DEF a_l * 

5313 ;* DEF a_2 * 

5314 ;* * 

5315 ;* DEF a_ac * 

5316 ;* * 

5317 ;* Builds a new frame on the stack of size FS * 

5318 ;* Copies AC parameter pointers to the new frame * 

5319 ;* (AC may be 0) * 

5320 ;* Executes next instruction at PE+1 in the current * 

5321 ;* segment * 

5322 ;* This instruction is int e rrupt ible during parameter * 

5323 ;* copying, and is restartable * 

5324 ;* * 

5325 ; ***************************************************************** 

5326 .PCALI: CCALL INDRES 4 AM2901 BR , TABQ , QREG , ADD , DZ 

5327 / 4 CARRYL ; 

5328 / 4 LDMAR ; 

5329 00414 / 4 CMSGN 4 DREAD ; RESOLVE PE ; QREG : = PE ; 

5330 CONT 4 AM2901 ,,N0P,ADD,AQ 

5331 00415 / 4 CREAD ; READ PE 

5332 CALL PCASUB1 4AM2901 PC , SI , RAMA , SUBS , DZ 

5333 / & CARRYL ; 

5334 / 4 LODMSR RESET ; 

5335 / A LDMAR ; 

5336 00416 / 4 CREAD ; S1=FS-1; READ AC; MSR = 0 

5337 CALL PCASUB2 4AM2901 , S3 , RAMF , ADD , ZB 

5338 / 4 CARRYH ; 

5339 00417 / 4 LDMAR ; MAR = NEXT Q ; S3 = NXT_Q 

5340 PDONE: CONT 4 AM2901 S4 , PC , RAMA , ADD , ZA 

5341 / 4 CARRYH ; 

5342 / 4 LDMAR ; 

5343 00418 / 4 IFETCH ; PC=PE+1 ; FETCH NEXTINST 

5344 JZ 4 AM2901 S2 , Q , RAMF , SUBR , ZA 

5345 00419 / 4 CARRYH ; SET Q = NXT_Q ; JZ 
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LINE ADDR STATEMENT 



D J*»/ 






3(C )|C ))C )|C ]|C 5(C !(C )(t 5(C 3fC 3)C 5|C 3|C 3|C 3f( J(t 3tC3|C 3(C 3|C 3(C 3(C 3(C 3flC 3|C 3(C 3|C3|C3]C 9|C3|C3fC3|C3|C3(C3|C3fC3tC3fC3tC3fC3tC 3(C3fC3fC 3fC 3fC3fC3^C 30C3(C3^C3(C3^C 3fC3fC 3fC3(C 3(0|0(C3tC3fC3fC3fC 














* 


o J 4y 






* 


.PCALX External Segment 


* 


J J J u 






* 


LABEL PE - + 




* 


J J j A 






* 


DEC AC + > PE DEC FS 


* 


j o o t 






* 


DEF A_0 




* 








* 






* 


COCA 








DEF A_AC 




* 


cocc 

J J J J 






* 






* 


J j jD 






*************************************** 








* 






* 


o c a 






* 


.PCALV Code map 


External segment 


* 


JOJ3 






* 


DEF XL [,I] -- + 




* 


COCA 

DoOU 






* 


DEC AC +-> XL LABEL PE --+ 




* 


COR 1 
J O D 1 






* 


DEF A_0 + 


-> PE DEC FS 


* 


3O0l 






* 






* 


coco 






* 


DEF A_AC 




* 


3 OD4 






* 






* 


J JD J 






***************************************************************** 








* 






* 


J JU ' 






* 


LABEL PE is a label into the external segment 


* 








* 


being called. The upper byte is a 


CST index 


* 








* 


and the lower byte is a STT index 




* 


Is *3 7 
D O / U 






* 






* 








* 


If the external segment is not mapped in, a fault to 


* 


*s "37 9 






* 


trap call SEGTRAP is executed. The operating system 


* 


5^ 7*3 






* 


is expected to place a JSB to the fault handling 


* 








* 


routine in this trap cell, and restart the PCAL 


* 


cole 
jO / 3 






* 


when the new segment is in memory. 




* 


C07C 
3J/D 






* 






* 


DO// 






* 


PCALX(V) builds the stack frame in 


memory, copies 


* 


K071I 






* 


the arguments, and then (after the 


ins t rue t ion is 


* 


3 J / y 






* 


no longer interrupt ible ) maps in the new segment, 


* 


coon 
D J oU 






* 


determines PE and FS; writes NEXT_Q, sets PC and Q, 


* 


COO 1 

Do 0 1 






* 


and fetches the next instruction from PE+1 


* 


D o 0 Z 






* 






* 


Do 0 J 






^tt^ 3fC3(C 3(C 3fC 3fC 3^C 3fC 3^C 3|C 3fC -^4^ 3fC 3fC 3fC -^4^ 


C O 0 A 
D J 0 4 














CO ft c 

JOOJ 






PCALV: 


CALL READIND & AM2901 BR , TABQ , QREG , ADD , DZ 




Do 013 




/ 


& CARRYL 






C O 0 7 
D O 0 / 




/ 


& LODUSR 






CTOO 

DO 0 0 




/ 


A LDMAR 






coon 
DO og 


A A A 1 A 


/ 


& DREAD 


RESOLVE, READ LABEL 


Do9U 






PCALX : 


CALL RDCST & AM2901 , SI , RAMF 


PASS.DZ 




c o n 1 
D o y 1 


A A /I 1 □ 

0041b 


/ 


& SPNOP 


SI = LABEL ; READ 


CST 


c o o o 
boy <: 








CALL PCAXSUB &AM2901 , S5 , RAMF 


PASS.DZ 




5393 




/ 


4 LODUSR 






5394 


0041C 


/ 


& CREAD 


S5=NEW CST ; READ 


CUR 


5395 














5396 








IF SEGMENT NOT IN MEMORY, PCAXSUB RETURNS HERE 




5397 














5398 




EFAULT: 


CONT & AM2901 , S7 , RAMF , PASS , DZ 




5399 


0041D 


/ 


& I MM SEGTRAP 


SEGMENT FAULT 
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LINE ADDR STATEMENT 



5400 FAULT: CJP INTERRPT 

5401 0041E / 

5402 CALL SETMAPS 

5403 0041F / 

5404 CONT 

5405 / 

5406 00420 / 

5407 CONT 

5408 / 

5409 00421 / 

5410 JZ 

5411 / 

5412 00422 / 



& AM2901 , , NOP, PASS, AQ 

& CONDEXT INTRPT ; IF INT PEND, SERVICE IT 

& AM2901 , , NOP, PASS, AQ 

& SPNOP ; 

& AM2901 PC.PC.RAMF.SUBR.DA 

& CARRYL 

& I MM H#0002 ; RESTORE PC FOR FAULT 

& AM2901 S7.CIR, NOP, PASS, ZA 
& LDMAR ; 

& IFETCH ; FETCH FROM TRAP CELL 

& AM2901 PC,PC,SRAMR,ADD,AB 
& CARRYL ; 
& SHIFT B#0000 ; 
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LINE ADDR STATEMENT 



5414 
5415 
5416 
5417 
5418 
5419 
5420 
5421 
5422 
5423 
5424 
5425 
5426 
5427 
5428 
5429 
5430 
5431 
5432 
5433 
5434 
5435 
5436 
5437 
5438 
5439 
5440 
5441 
5442 
5443 
5444 
5445 
5446 
5447 
5448 
5449 
5450 
5451 
5452 
5453 
5454 
5455 
5456 
5457 
5458 
5459 
5460 
5461 
5462 
5463 
5464 
5465 
5466 



00423 

00424 
00425 

00426 

00427 

00428 

00429 
0042A 



0042B 

0042C 
0042D 

0042E 

0042F 

00430 



*************************************** 

* * 

* PCALR, PCALN * 

* * 
***************************************************************** 



PCALR 



CCALL INDRES 



/ 
/ 
/ 
/ 

/ 
/ 
/ 



/ 
/ 

/ 
/ 

/ 
/ 
/ 

/ 
/ 
/ 



PCALN: 



/ 
/ 
/ 
/ 

/ 
/ 
/ 



CALL PCASUB1 



CONT 



CONT 



CALL CHECK 



CONT 



CONT 



JP 



WREXITS 



CCALL INDRES 



CALL PCASUB1 



CONT 



CONT 



CALL CHECK 



CONT 



PE 



S4 



PE + 1 



RESERVED WORD 



AM2901 BR , TABQ ,QREG , ADD ,DZ 
CARRYL ; 
CONDEXT MDIR15 ; 
LDMAR ; 
CMGO & DREAD ; RESOLVE 
AM2901 PC,S4,RAMA,ADD,ZQ 
CARRYH ; 
LDMAR ; 
CREAD ; READ AC 

AM2901 S2 , SO , QREG , ADD , AB 
CARRYL ; QREG = NXT_Q+AC+1 

AM2901 , SI , RAMF , ADD , DQ 
CARRYL ; 
I MM H#0008 ; SI = NEXT_Q 

AM2901 ZREG , SI , NOP , SUBR , AB 
CARRYL ; TEST FOR STACK OVFL 

LODUSR ; 
AM2901 S2 , S5 , RAMF , ADD , DA 
CARRYL ; 
IMM H#0004 ; 
LDMAR ; MAR = 

AM2901 ,S3,N0P,ADD,ZB 
CARRYH ; 
LDMDOR ; 
DWRITE 
AM2901 

LDMDOR ; 
AM2901 BR, TABQ, QREG, ADD, DZ 
CARRYL ; 
CONDEXT MDIR15 ; 
LDMAR ; 
CMGO & 
AM2901 
CARRYH 
LDMAR 
CREAD 
AM2901 
CARRYL 
AM2901 
CARRYL 
IMM H#0008 
AM2901 ZREG, SI, 
CARRYL 
LODUSR ; 
AM2901 S2 , , NOP, ADD, DA 
CARRYL ; 
IMM H#0005 ; 

LDMDOR ; MDOR = RETURN ADDRESS 



, S5 ,NOP 



; WRITE 
PASS.ZB 



TRUE RETURN ADDRESS 



DREAD ; RESOLVE PE 
PC,S4,RAMA,ADD,ZQ 



; READ AC; 
S2 , SO , QREG , ADD , AB 

, SI , RAMF , ADD , DQ 



S4 = PE+1 



SI = NEW NEXT Q 
NOP, SUBR ,AB 

TEST FOR STACK OVFL 
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LINE ADDR STATEMENT 



5467 

5468 

5469 

5470 

5471 

5472 

5473 

5474 

5475 

5476 

5477 

5478 

5479 

5480 

5481 

5482 

5483 

5484 

5485 

5486 

5487 

5488 

5489 

5490 

5491 

5492 

5493 

5494 

5495 

5496 

5497 

5498 

5499 

5500 

5501 

5502 

5503 



00431 



00432 



00433 



00434 



00435 



00436 



00437 



00438 



00439 



0043A 



WREXITS: 

/ 
/ 
/ 
/ 



/ 
/ 

/ 
/ 
/ 

/ 
/ 

/ 
/ 
/ 

/ 
/ 

/ 
/ 
/ 

CHECK: 
/ 

/ 
/ 
/ 
/ 

/ 
/ 



CONT 



CONT 



CONT 



CONT 



CONT 



CONT 



JP PDONE 



CJP PCALMPR 
CJP PCAOO 



RET 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
A 
& 
& 
& 
& 
& 
& 
& 

& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



S3, RAMF 



, NOP, PASS, DZ 



, S3 , RAMF 



AM2901 ,S4,N0P,SUBR ,ZB 
CARRYH 
SPETC CLRCS 
LDMAR 
DWRITE 
AM2901 
CARRYH 
LDMAR 
AM2901 
I MM EXITO 
LDMDOR 
DWRITE 
AM2901 
CARRYH 
LDMAR 
AM2901 
IMM EXIT1 
LDMDOR 
DWRITE 

AM2901 , , NOP, PASS, DZ 
IMM EXIT2 
LDMDOR 

AM2901 , S3, RAMF 
CARRYH 
LDMAR 
DWRITE 



WRITE RETURN ADDRESS 
ADD , ZB 



WRITE FIRST EXIT RETURN 
ADD , ZB 



, NOP, PASS, DZ 



WRITE SECOND EXIT RETURN 



ADD , ZB 



WRITE THIRD EXIT RETURN 



AM2901 , , NOP , ADD , AQ 



CONDUSR NSGN 
AM2901 PC,S7,RAMF,ADD,ZA 
CARRYH 

CONDMSR NSGN 
LDMAR 

CMGO & CREAD 
AM2901 S2, S3, RAMF, ADD, DA 
CARRYL ; 
IMM H#0004 ; S3 



CHECK FOR MEMORY PROTECT 



JP IF AC > 0 



S2+4 = NXT_Q+5 
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5505 
5506 
5507 
5508 
5509 
5510 
5511 
5512 
5513 
5514 
5515 
5516 
5517 
5518 
5519 
5520 
5521 
5522 
5523 
5524 
5525 
5526 
5527 
5528 
5529 
5530 
5531 
5532 
5533 
5534 
5535 
5536 
5537 
5538 
5539 
5540 
5541 
5542 
5543 
5544 
5545 
5546 
5547 



0043B 

0043C 
0043D 
0043E 

0043F 
00440 

00441 
00442 
00443 

00444 

00445 
00446 



*************************************** 

* * 

* EXITO - RETURN FROM SUBROUTINE * 

* * 

* EXIT1 - RETURN WITH ONE SKIP * 

* EXIT2 - RETURN WITH 2 SKIPS * 

* * 
***************************************************************** 



.EXITO 

/ 

/ 

/ 

/ 

/ 
/ 
/ 

/ 

EXSKP: 
/ 



CONT 



/ 
/ 
/ 

INC PC : 

/ 

.EXIT1 : 
/ 

SKPEX: 

/ 

/ 



CRET 



CONT 



CONT 



CCALL SGLD 



CONT 



CONT 



JZ 



CALL 



JP 



EXITO 



EXSKP 



EXIT2: CALL .EXITO 
JP SKPEX 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 

& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



AM2901 Q, , NOP, ADD, DA 
CARRYL 
I MM H#0002 
LDMAR 
DREAD 



READ RETURN P 



AM2901 0 
CARRYH 
CONDMSR 
LDMAR 
AM2901 
DREAD 
AM2901 
LODUSR 



,NOP,ADD,ZA 



SGN 



MAR = PREV_Q 
S6,RAMF,PASS,DZ 

S6 = RTN_P ; READ PREV_Q 
,S6, NOP, PASS, ZB 

; USR = CROSS SEG STATUS 
; WAIT FOR MEMORY 
AM2901 ,S7,RAMF,PASS,DZ 
CONDUSR SGN ; S7 = PREV_Q 
AM2901 S7,Q,RAMF,PASS,ZA 
SPETC SETCS ; SET Q ; TURN CSMODE ON 
AM2901 S6,PC,RAMF,N0TRS,DA 
I MM H#8000 
LDMAR 
IFETCH 

AM2901 , PC , RAMF , ADD , ZB 
CARRYH 

AM2901 ,S6 , RAMF , AND, ZQ 
LODMSR SET ; S6 = 0 

AM2901 S6 , S6 , RAMF , ADD , DA 
CARRYH ; 
DREAD ; READ PREV__Q 



SI 



RTN P 



& AM2901 ,S6 , RAMF , AND, ZQ 
& LODMSR SET ; S6 = 0 

& AM2901 ,S6, RAMF, ADD, ZB 
& CARRYH ; S6 = 1 



SET MSR FOR RETU 
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5549 ; *************************sm* 

5550 ;* * 

5551 ;* PCAL SUBROUTINES * 

5552 ;* * 

5553 ; 

5554 NOARGS: LDCT PDONE & AM2901 ZREG , SI , NOP , SUBR , AB 

5555 / & CARRYL ; 

5556 00447 / & LODUSR ; TEST FOR STACK OVERFLOW 

5557 JRP PCALMPV &AM2901 ,,NOP,ADD,AQ 

5558 00448 / & CONDUSR NSGN ; MP IF SI >= Z 

5559 ; 

5560 ; PCASUB - BUILDS STACK FRAME, MOVES PARAMETER ADDRESSES 

5561 ; 



5562 




PCASUB1 : 


CONT 


& 


AM2901 


Q, , NOP, ADD, DA 


5563 




/ 




& 


CARRYL 




5564 




/ 




& 


IMM H#0004 ; 


5565 


00449 


/ 




& 


LDMAR 


; MAR = NEXT_Q 


5566 






CONT 


& 


AM2901 


TAB,SO,RAMF,PASS,DZ 


5567 


0044A 


/ 




& 


DREAD 


; SO = AC ; READ NEXT_Q 


5568 






CONT 


& 


AM2901 


Q,S4, RAMA, ADD, ZQ 


5569 




/ 




& 


CARRYH 




5570 


0044B 


/ 




& 


LDMDOR 


; MDOR = CURRENT Q ; S4 = P 


5571 






CONT 


& 


AM2901 


, S2 , RAMF , ADD , DZ 


5572 




/ 




& 


CARRYH 




5573 




/ 




& 


LDMAR 




5574 


0044C 


/ 




& 


DWRITE 


; WRITE PREV_Q ; S2 = NXT_Q 


5575 






CONT 


& 


AM2901 


S2,S3,RAMF,ADD,ZA 


5576 




/ 




& 


CARRYH 




5577 


0044D 


/ 




& 


LDMAR 


; MAR = RTN_P ; S3 = NXT_Q+ 


5578 






CONT 


& 


AM2901 


SO, PC, NOP, ADD, AB 


5579 




/ 




& 


CARRYH 




5580 




/ 




* 


LDMDOR 




5581 


0044E 


/ 




& 


DWRITE 


; WRITE RTN_P 


5582 






CRET 


& 


AM2901 


S6,S3,RAMF,ADD,ZB 


5583 




/ 




& 


CARRYH 




5584 




/ 




& 


CONDMSR 


SGN ; RETURN IF FROM PCAXSUB 


5585 


0044F 


/ 




& 


LDMAR ; 


; MAR=AC ; S3=NXT_Q+3 


5586 






RET 


& 


AM2901 


SO, SO, RAMA, SUBR, ZB 


5587 




/ 




& 


CARRYH 




5588 




/ 




& 


LODMSR 




5589 




/ 




& 


LDMDOR 




5590 


00450 


/ 




& 


DWRITE 


; WRITE AC ; SO = MSR = AC- 
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5592 PCASUB2: CJP NOARGS 

5593 / 

5594 / 

5595 / 

5596 00451 / 

5597 CONT 

5598 / 

5599 00452 / 

5600 CJP PCALMPV 

5601 / 

5602 / 

5603 / 

5604 00453 / 

5605 PCAOO: CONT 

5606 / 

5607 / 

5608 00454 / 

5609 COPYARGS: CJP PINDR 

5610 / 

5611 / 

5612 00455 / 

5613 CRET 

5614 / 

5615 00456 / 

5616 CJP INTERRPT 

5617 / 

5618 / 

5619 / 

5620 / 

5621 00457 / 

5622 PCA05: JP COPYARGS 

5623 / 

5624 00458 / 

5625 ; 

5626 PINDR: CJP COPYARGS 

5627 / 

5628 00459 / 

5629 CJP INTERRPT 

5630 0045A / 

5631 CONT 

5632 / 

5633 0045B / 

5634 JP PCA05 

5635 / 

5636 0045C / 



& 


AM2901 S2 , SI , RAMF , ADD , AB 


& 


CARRYL 




& 


CONDMSR SGN 


IF AC=0, SKIP COPYARGS 


& 


LDMDOR 


SI = MDOR = NEW NEXT Q 


& 


DWRITE 


WRITE NNQ 


& 


AM2901 ZREG,S1,N0P,SUBR,AB 


& 


CARRYL 




& 


LODUSR 


TEST FOR STACK OVERFLOW 


& 


AM2901 PC,S7,RAMF,ADD,ZA 


& 


CARRYH 




& 


CONDUSR NSGN 




& 


LDMAR 




& 


CNMGO & CREAD 


SI = FROM ; READ FIRST DE 


& 


AM2901 S2, S3, RAMF, ADD, DA 


& 


CARRYL 




& 


IMM H#0005 




& 


LDMAR 


S3 = TO = NXT_Q+6 


& 


AM2901 BR , TABQ , NOP , ADD ,DZ 


& 


CARRYL 




& 


CONDEXT MDIR15 


IF MDIR15: JP, LDMAR, DRE 


& 


SPIND 


ELSE: CONT, LDMDOR, DWRI 


& 


AM2901 S7.S7, RAMF, ADD, ZB 


& 


CARRYH 


INCREMENT FROM ADDRESS 


& 


CONDMSR Z 


DONE IF MSR Z 


& 


AM2901 S7,S0,RAMA,SUBR,ZB 


& 


CARRYH 




& 


CONDEXT INTRPT 




ot 


LODMSR 




& 


LDMAR 




& 


CNMGO & CREAD 


DECREMENT SO ; READ NEXT 


& 


AM2901 , S3, RAMF 


, ADD , ZB 


& 


CARRYH 




& 


LDMAR 


; MAR = S3 = NEXT TO 


& 


AM2901 ,S3 , NOP, PASS, ZB 


& 


CONDEXT NOABIN 




& 


LDMAR 


; CHECK FOR INTS OR A/B 


& 


AM2901 ,,NOP,ADD,AQ 


& 


CONDEXT INTRPT 


; IF INT PEND 


& 


AM2901 TAB, .NOP 


, PASS.DZ 


& 


LDMDOR 




& 


DWRITE 


; WRITE A/B TO MEMORY 


& 


AM2901 , S3, RAMF 


, SUBR.ZB 


& 


CARRYH 




& 


DREAD 


; GET IT IN THE MDIR 
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5638 

5639 

5640 

5641 

5642 

5643 

5644 

5645 

5646 

5647 

5648 

5649 

5650 

5651 

5652 

5653 

5654 

5655 

5656 

5657 

5658 

5659 

5660 

5661 

5662 

5663 

5664 

5665 

5666 

5667 

5668 

5669 

5670 

5671 

5672 

5673 

5674 

5675 

5676 

5677 

5678 

5679 

5680 

5681 

5682 

5683 

5684 



0045D 
0045E 
0045F 

00460 
00461 



00462 



00463 



00464 



00465 



00466 



00467 
00468 



RDCST: 
/ 

/ 

/ 

/ 
/ 
/ 

/ 
/ 



PCAXSUB : 

/ 

/ 

/ 



/ 
/ 

/ 
/ 

/ 
/ 
/ 
/ 



RDCST - S5 = CST ENTRY FOR NEW SEGMENT 

S6 = CST ENTRY FOR THIS SEGMENT 

IF NEW SEGMENT NOT IN MEMORY, RETURN TO PFAULT 
ELSE CALL PCASUB 



CONT 

PUSH H#001 

RFCT 

CONT 

RET 



CRET 



CALL PCASUB1 



4 AM2901 SI, S2, RAMA, PASS, DZ 

4 SPRD RL4 ; EXTRACT NEW CST FROM LABE 

4 AM2901 S2.S2, RAMA, PASS, DZ 

4 SPRD RL4 ; 

4 AM2901 ,S2,SRAML,PASS,ZB 

4 SHIFT B#0010 ; S2=ADDRESS OF NEW CST ENT 
4 AM2901 S2 , S2 , RAMF , AND , DA 
4 IMM H#01FC 
4 LDMAR 

4 CREAD ; READ NEW CST ENTRY 

4 AM2901 , , NOP, PASS, DZ 
4 IMM H#0400 ; 

4 LDMAR ; MAR = CURRENT CST 



4 AM2901 PC,PC,SRAMR,ADD,AB 



4 CARRYL 
4 CONDUSR SGN 
4 SHIFT B#0001 
4 AM2901 PC, S6, RAMA, PASS, DZ 
4 LODMSR SET 
4 LDMAR 
4 CREAD 



SET SIGN BIT OF PC FOR 
PCASUB. IF SIGN BIT OF N 
CST SET, RTN (FAULT) 



S6=CUR CST ; MSR=1 ; READ 



WRITE RETURN CST AND ARG COUNT 



CONT 
CONT 

CONT 

CCALL PCAOO 



4 
4 
4 
4 
& 
4 
4 
4 
4 



AM2901 S6 , S6 , RAMF , AND , DA 
IMM H#FFOO ; MASK CUR CST TO 8 BITS 

AM2901 S6,S0,NOP,OR,AB 
LDMDOR 
DWRITE 

AM2901 , SO, RAMF 
CARRYH 
LODMSR 



WRITE RTN CST AND AC 
SUBR ,ZB 



DEC COUNT ; MSR 



COUNT 



CONT 



AM2901 PC, S7, RAMF , ADD , ZA 
4 CARRYH 
4 CONDMSR NSGN 
4 LDMAR 

4 CMGO 4 CREAD ; IF AO 0 , 
4 AM2901 , S4, RAMF , AND, ZQ 
4 LODMSR RESET ; S4 = 0 



COPYARGS 
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5686 

5687 

5688 

5689 

5690 

5691 

5692 

5693 

5694 

5695 

5696 

5697 

5698 

5699 

5700 

5701 

5702 

5703 

5704 

5705 

5706 

5707 

5708 

5709 

5710 

5711 

5712 

5713 

5714 

5715 

5716 

5717 

5718 

5719 

5720 

5721 

5722 

5723 



00469 

0046A 

0046B 

0046C 

0046D 
0046E 



0046F 

00470 

00471 
00472 

00473 
00474 



MAPIT: 
/ 



/ 
/ 
/ 

/ 
/ 

/ 
/ 



/ 
/ 
/ 
/ 

/ 
/ 

/ 
/ 



CONT 

PUSH H#01E 
CONT 

RFCT 

CRET 

CONT 
CONT 



CONT 

CONT 

CONT 
CONT 

JP NOARGS 



& 
& 

& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 

& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



MAR -> MAP NUMBER 



AM2901 S5,S5,RAMF,0R,DA 

I MM H#4000 ; S5=INIT PMR VALUE 

WITH WRITE PROTECT BIT SE 
AM2901 MAPX , ,NOP,ADD,DZ 
CARRYH ; 

LDAER ; AER POINTS TO CODE MAP 

AM2901 S4 , S4 , RAMF , ADD , DA 
CARRYL 
I MM H»0400 
LDMAR 

AM2901 S5.S5, RAMA, ADD, ZB 
CARRYH ; 

SPWR MAPWR ; WRITE A MAP, LOOP 

AM2901 MAPX, , NOP, PASS, DZ 
CONDMSR SGN ; SGLD EXITS HERE 
LDAER ; AER -> EXECUTE MAP 

AM2901 S1,S1,RAMF,N0TRS,DA 
I MM H#FF00 ; 
AM2901 SI, , NOP, ADD, DA 
CARRYL 
IMM H#0401 
LDMAR 
CREAD 

AM2901 S2, S3, RAMF, ADD, DA 
CARRYL 
IMM H#0003 
AM2901 ,S4,RAMF 
LDMAR 
CREAD 
AM2901 
CARRYH 



, S4 , RAMF 



READ STT ENTRY 



53 = NEXTQ 
PASS.DZ 

S4=STT ENTRY 
ADD , ZB 

54 = INIT PC 



READ FS 



AM2901 S3, SI, RAMA, SUBS, DZ 
CARRYL ; 



LDMAR 



S1=FS-1 ; MAR = NEXT_Q AD 



AM2901 S2 , SI , RAMF , ADD , AB 
CARRYL 
LDMDOR 
DWRITE 



WRITE NEXT_Q 
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5725 
5726 
5727 
5728 
5729 
5730 
5731 
5732 
5733 
5734 
5735 
5736 
5737 
5738 
5739 
5740 
5741 
5742 
5743 
5744 
5745 



00475 
00476 
00477 

00478 
00479 



PCALMPR : 

/ 

PCALMPV. 

/ 
/ 

/ 
/ 

/ 
/ 
/ 



CONT 



CJP 



CONT 



CONT 



JP 



GENMPV 



GENMPV 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



AM2901 , , NOP , ADD , AQ 

SPETC CLRCS ; TURN CSMODE OFF FOR PCALR 
AM2901 S2,Q,RAMF,SUBR,ZA 
CARRYH ; 

CONDEXT MPEN ; IF MP SYS ON, GENMPV 
AM2901 PC,S7,RAMF,SUBR,ZA 
CARRYH ; 
ENCN SETMPEN 



TURN MP SYS ON 



AM2901 

CARRYH 

LDMAR 

IFETCH 

AM2901 



, S7,RAMF,SUBR,ZB 



; REFETCH INST WITH MP ON 
,NOP,ADD,AQ 



/ & ENCN CLRMPEN ; TURN MP BACK OFF, GENMPV 

******************************************* 

* * 

* SGLD - MAP IN SEGMENT TO RETURN TO FOR EXIT * 

* * 
****************************************************;|c****^^ 



5746 




SGLD: 


CONT 




& 


AM2901 


Q, , NOP, ADD, DA 


5747 




/ 






& 


CARRYL 




5748 




/ 






& 


I MM H#0003 ; 


5749 




/ 






& 


LDMAR 




5750 


0047A 


/ 






& 


DREAD 


; READ RTN_CST 


5751 






CONT 




& 


AM2901 


, , NOP , ADD , AQ 


5752 


0047B 


/ 






& 


SPNOP 


; WAIT FOR DATA 


5753 






CALL 


RDCST 


& 


AM2901 


, SI , RAMF , PASS.DZ 


5754 


0047C 


/ 






& 


LODMSR 


SET ; SI = RTN_CST | AC; MSR=1 


5755 






LDCT 


EFAULT 


& 


AM2901 


,S5, RAMF, PASS, DZ 


5756 


0047D 


/ 






& 


LODUSR 


; S5 = CST_ENTRY ; MSR = 1 


5757 






JRP 


MA PIT 


& 


AM2901 


, S4, RAMF , AND, ZQ 


5758 


0047E 


/ 






& 


CONDUSR 


NSGN ; S4=0;SEG IN MEM IF SIGN 
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LINE ADDR STATEMENT 

5760 ; **************************************************^^ 

5761 ; Thunder Single Precision Floating Point Microcode * 

5762 ; * 

5763 ; The operands are manipulated in unpacked format: two words * 

5764 ; of mantissa and one word of (two's complement) exponent. * 

5765 ; The names are: * 

5766 ; * 

5767 ; 1st argument: (XU.XL.XEXP) => result * 

5768 ; 2nd argument: (YU.YL.YEXP) scratch: ZU.ZL * 

5769 ; ************************************** 
5770 

5771 XU: EQU A (A) ; REGISTER ASSIGNMENTS. 

5772 XL: EQU B (B) 

5773 XEXP: EQU SI 

5774 ; 

5775 YU: EQU DBLIMSW 

5776 YL: EQU S2 

5777 YEXP: EQU DBLILSW 

5778 ;«**** 

5779 ZU: EQU S5 

5780 ZL: EQU S6 



D-141 



A600+ BASESET MICROCODE 6/15/83 ** [&LBRB1] 
LINE ADDR STATEMENT 



1:35 PM TUE., 13 SEPT, 1983 PAGE 146 



5782 

5783 

5784 

5785 

5786 

5787 

5788 

5789 

5790 

5791 

5792 

5793 

5794 

5795 

5796 

5797 

5798 

5799 

5800 

5801 

5802 

5803 

5 804 

5805 

5806 

5807 

5808 

5809 

5810 

5811 

5812 

5813 

5814 

5815 

5816 

5817 

5818 

5819 

5820 

5821 

5822 

5823 

5824 

5825 

5826 

5827 

5828 

5829 

5830 

5831 

5832 

5833 

5834 



0047F 



00480 



00481 



00482 



00483 



00484 



00485 



00486 



00487 



******************************************* 



FIX: Floating to single integer conversion. 



* 
* 
* 

convert (A , B) from floating to integer; A := result. * 

* 

If the exponent exceeds +15, the result is 77777B * 
and overflow is set. If the exponent is less than 0, * 
the result is zero. * 

* 

***************************!(C*****5|M|0( ( **)(tJ((*j| C *5|C******************)(C)(C 

UNPACK. (SEE CALLING SEQ. FOR UNPACK) 

IF XEXP < 0, RESULT = 0. 

XEXP := 15-XEXP 

Q : = 0 

IF XEXP < 0, OVERFLOW. 



FIX: 



/ 
/ 

/ 
/ 

/ 
/ 
/ 

/ 
/ 
/ 

/ 
/ 

/ 
/ 

/ 
/ 
/ 



FIXDONE : 

/ 
/ 

/ 
/ 



CALL UNPACK1 



CJP FIXZERO 



CONT 



CJP FIXOVR 



CJP FIXDONE 



PUSH 



RFCT 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



AM2901 B , XEXP , RAMF , PASS , ZA 
LODMSR SWAPEO ; UNPACK <A,B> 
ENBLC & ENBLO ; 
AM2901 , ,QREG , AND , ZQ 
CONDMSR SGN ; 

CMGO 4 IFETCH ; Q = 0; IF XEXP<0 1 
AM2901 XEXP, XEXP, RAMF, SUBS, DA 
CARRYH 
LUSRCOND 

I MM H#000F ; XEXP = 15-XEXP 



ZERO 



, XEXP, RAMF, SUBR.ZB 



IF XEXP > 15, OVERFLOW 



AM2901 
CARRYH 
CONDUSR SGN 
CMGO & IFETCH 
AM2901 ,XU, NOP, PASS, ZB 
CONDUSR SGN ; 
& CMGO & IFETCH ; IF XEXP WAS 15, NO SHIFT 
& AM2901 , XEXP, NOP, PASS, ZB 
SPETC LDCTY ; 

IFETCH ; 2910 = SHIFT COUNT 

AM2901 , XU , SRAMQR , ADD , ZB 
CARRYL 



LODUSR 

SHIFT B#1110 



SIGN EXTEND 



DONE SHIFTING. IF VALUE IS NEGATIVE, AND XL<>0 OR ANY BITS 
WERE SHIFTED INTO Q, ADD ONE TO THE FIXED VALUE. 

CJP FETCH & AM2901 XL , , NOP , OR , AQ 

& CONDUSR NSGN 
& IFETCH 

JZ & AM2901 , XU , RAMF 

& CARRYEXT 
4 CONDUSR NZ 



IF NOT NEGATIVE 
ADD ,ZB 



ADD ONE IF B<>0 OR Q<>0 
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LINE ADDR STATEMENT 

5835 ; EXPONENT NEGATIVE, RESULT = 0 

5836 ; 

5837 FIXZERO: JZ & AM2901 , XU , RAMF , AND , ZB 

5838 00488 / & SPNOP ; XU (A) = 0 

5839 ; 

5840 ; EXPONENT > 15, OVERFLOW ( A=77777 , 0=1 ) 

5841 ; 

5842 FIXOVR: JZ & AM2901 A , A , SRAMR , EXNOR , AB 

5843 / & LODMSR SET ; 

5844 / & ENBLO ; 

5845 00489 / & SHIFT B#0000 

A600+ BASESET MICROCODE 6/15/83 ** [&LBRB1 ] 1:35 PM TUE., 13 SEPT, 1983 PAGE 148 

LINE ADDR STATEMENT 

5848 ; * 

5849 ' FLT ' SINGLE INTEGER TO FLOATING-POINT CONVERSION. * 

5850 * 

5851 ; CONVERT (A) FROM INTEGER TO FLOATING; ( A , B ) = RESULT. * 

5852 ; * 

5853 ; NO UNDERFLOW, OVERFLOW OR ERROR CONDITIONS CAN OCCUR. * 

5854 * 

5856 ; 

5857 ; XU := A (BY DEFINITION) 

5858 ; XEXP := 15 

5859 ; XL 0 

5860 ; GO NORMALIZE & PACK. 

5861 ; 

5862 FLT: CONT & AM2901 , XEXP , RAMF , PASS ,DZ 

5863 0048A / & I MM H#OOOF ; XEXP = 15 

5864 JP NORM & AM2901 , XL , RAMF , AND , ZB 

5865 0048B / & SPNOP ; XL = 0 
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5867 
5868 
5869 
5870 
5871 
5872 
5873 
5874 
5875 
5876 
5877 
5878 
5879 
5 8 80 
5881 
5882 
5883 
5884 
5885 
5886 
5887 
5888 
5889 
5890 
5891 
5892 
5893 
5894 
5895 
5896 



0048C 



0048D 



0048E 



0048F 



00490 



00491 



00492 



* Fix single precision to double integer. * 

* * 

* JSB .FIXD * 



.FIXD: 

/ 

/ 

/ 

/ 

/ 

/ 
/ 
/ 

FIXD1 : 

/ 
/ 
/ 

/ 
/ 



If exponent < 0, result 



else use TFXD 



LDCT TFXD1 4 AM2901 A , S4 , RAMF , PASS , ZA 

4 LODMSR SWAPEO ; 

4 ENBLC & ENBLO ; 
CONT 4 AM2901 B , S5 , RAMF , AND , DA 

4 I MM HtFFOO ; 
CONT 4 AM2901 S5 , B , SRAMR , EXOR , AB 

& SHIFT B#0010 ; 
CJP FIXD1 4 AM2901 , S6 , RAMF , AND , ZQ 

4 CONDMSR NC ; 
JP NGL02 4 AM2901 , A , RAMF , AND , ZQ 

4 LODMSR SWAPEO ; 

4 ENBLC 4 ENBLO ; 

4 IFETCH ; 
CONT 4 AM2901 B , MP , RAMF , SUBS , DA 

4 CARRYH ; 

4 IMM H#000F ; 

4 LUSRCOND ; 
JRP TFXD4 4 AM2901 , PC , RAMF , SUBR , ZB 

4 CARRYH 

4 CONDUSR SLE ; 
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5898 
5899 
5900 
5901 
5902 
5903 
5904 
5905 
5906 
5907 
5908 
5909 
5910 
5911 
5912 
5913 
5914 
5915 
5916 
5917 
5918 
5919 
5920 
5921 
5922 
5923 
5924 
5925 
5926 
5927 
5928 
5929 



00493 



00494 



00495 



00496 



00497 



00498 



00499 



0049A 



************************************************^^ 

* * 

* Float double integer to single precision. * 

* * 
********************************************** 



. FLTD : 



/ 
/ 
/ 

/ 

/ 



FLTD1: 

/ 



FLTD2 : 

/ 

/ 

/ 

/ 



LDCT DNC0UNT1 



CJP 
CJP 



FLTD1 
FLTD2 



& AM2901 ,A,N0P,0R,ZB 
& CARRYH 
& LODMSR SWAPEO 
& ENBLC & ENBLO 
& AM2901 A,B,NOP,EXOR,AB 
& CONDUSR UGT ; IF NOT ZERO OR ONES 
& AM2901 , B, NOP, PASS, ZB 
& CONDUSR NSGN ; 



Outside [-32768, +32767] ; float ( A , B ) * 2**16 
CONT 

JP FLTD3 



& AM2901 , MP , RAMF , PASS ,DZ 
& I MM H*0020 ; 
& AM2901 ,B,QREG,PASS,ZB 
& LODMSR RESET 



Inside [-32768 , +32767] ; float (B,0) * 2**16 
If zero , just exit . 

CJP CLRO & AM2901 B , A , RAMF , PASS , ZA 

& CONDUSR Z ; 

& CMGO & IFETCH ; 
CONT & AM2901 , , QREG , AND , ZQ 

& LODMSR RESET ; QREG = 0 
CONT & AM2901 , MP , RAMF , PASS , DZ 

4 I MM H#0010 
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5931 
5932 
5933 
5934 
5935 
5936 
5937 
5938 
5939 
5940 
5941 
5942 
5943 
5944 
5945 
5946 
5947 
5948 
5949 
5950 
5951 
5952 
5953 
5954 
5955 
5956 



Normalize and pack ( A , Q) * 2**R12 



0049B 



0049C 



0049D 



0049E 



0049F 



004A0 



004A1 



FLTD3 : 
/ 



CPUSH 



TWB 



CONT 



JSRP 



CONT 



CONT 



JZ 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
4 
& 
& 
& 



AM2901 ,A,SRAMQL,PASS,ZB 



CONDMSR SGN 
SHIFT B#0100 ; 
AM2901 ,A,SRAMQL,PASS,ZB 
CONDEXT IRSKBF ; 
SHIFT B#0100 ; 
AM2901 ,A,SRAMQR,PASS,ZB 
LODMSR INVERT 
ENBLC 

SHIFT B#0100 
AM2901 ,A,SRAMQR,PASS,ZB 
CONDMSR NSGN ; 
SHIFT B#0100 ; 
AM2901 MP,S7,SRAML,SUBS,AB 
CARRYH 

LODMSR RESET 
ENBLC 

SHIFT B#0000 
AM2901 S7 , B , RAMF , AND , DQ 
I MM H#FF00 ; 
IFETCH ; 
AM2901 S7,B,RAMF,0R ,AB 
LODMSR SWAPEO ; 
ENBLC & ENBLO ; 



NEVER LOAD COUNTER 



RESET MC (=M0 AFTER SWAP) 
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5959 ; * 

5960 ; .FSB' FLOATING-POINT SUBTRACT. * 

5961 ; * 

5962 ; SUBTRACT THE UNPACKED NUMBERS * 

5963 ; * 

5964 ; (XU.XL.XEXP) - (YU.YL.YEXP) --> (XU.XL.XEXP) * 

5965 * 

5966 OVERFLOW AND UNDERFLOW ARE POSSIBLE. THE RESULT * 

5967 MAY BE UNNORMALIZED . * 

5968 * 

5969 ; ********************^^ 

5970 ; 



5978 ; 

5979 .FSB: CALL DIARG & AM2901 BR , TABQ , QREG , ADD , DZ 

5980 / & CARRYL ; 

5981 / & LODUSR ; 

5982 / & LDMAR ; 

5983 004A2 / 4 DREAD ; 

5984 CALL UNPACK & AM2901 XL , XEXP , RAMF , PASS , ZA 

5985 / & LODMSR SWAPEO ; 

5986 004A3 / & ENBLC & ENBLO 

5987 CONT & AM2901 , YL , RAMF , SUBS , ZB 

5988 / & CARRYH 

5989 004A4 / & LODUSR 

5990 CONT & AM2901 , YU , RAMF , SUBS , ZB 

5991 004A5 / & CARRYUC ; 

5992 CJP FADD1 &AM2901 ,,NOP,ADD,AQ 

5993 004A6 / & CONDUSR NOVR ; 

5994 CONT & AM2901 , YU , SRAMR , PASS , ZB 

5995 004A7 / & SHIFT B#0000 

5996 JP FADD1 & AM2901 , YEXP , RAMF , ADD , ZB 

5997 004A8 / & CARRYH ; 
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5999 ; *************************************** 

6000 ; * 

6001 ; '.FAD' FLOATING-POINT ADD. * 

6002 * 

6003 ; ADD THE UNPACKED NUMBERS * 

6004 * 

6005 ; (XU.XL.XEXP) + (YU.YL.YEXP) --> (XU.XL.XEXP) * 

6006 ; * 

6007 ; OVERFLOW AND UNDERFLOW ARE POSSIBLE. THE RESULT * 

6008 MAY BE UNNORMALIZED . * 

6009 ; * 

6010 ; **************************************************************** 
6011 

6012 READ SECOND OPERAND FROM MEMORY; UNPACK BOTH OPERANDS. 

6013 ; 

6014 FAD: CALL DIARG 4 AM2901 BR , TABQ , QREG , ADD , DZ 

6015 / 4 CARRYL ; 

6016 / 4 LODUSR ; 

6017 / 4 LDMAR ; 

6018 004A9 / 4 DREAD ; RESOLVE, READ Y 

6019 CALL UNPACK 4AM2901 XL , XEXP , RAMF , PASS , ZA 

6020 / 4 LODMSR SWAPEO ; 

6021 004AA / 4 ENBLC 4 ENBLO ; 

6022 ; 

6023 ; ZU := XU 

6024 ; IF XU = 0 THEN SWAP ( XU , XL ) <=> ( YU , YL ) 4 SET XEXP := YEXP 

6025 ; IF YU=0 THEN DONE. 

6026 Q := (XEXP-YEXP); TEST IT. 
6027 

6028 FADD1: CONT 4 AM2901 XU , ZU , RAMF , PASS , ZA 

6029 004AB / 4 LODUSR ; 

6030 CCALL SWAPFARG 4 AM2901 YEXP , YU , NOP , PASS , ZB 

6031 004AC / 4 CONDUSR Z ; IF XU = 0 , SWAP 

6032 CJP NORM 4 AM2901 YEXP , XEXP , QREG , SUBR , AB 

6033 / 4 CARRYL ; 

6034 004AD / 4 CONDUSR Z ; 

6035 ; 

6036 ; ZL := XL 

6037 ; IF Q < 0 THEN 

6038 ; SWAP ( XU , XL ) <= > ( YU , YL ) (USING ZU.ZL) 

6039 ; XEXP := YEXP 

6040 ; Q : = -Q 

6041 ; 

6042 CCALL SWAPFARG 4 AM2901 XL , ZL , RAMF , PASS , ZA 

6043 004AE / 4 CONDUSR SGN ; 
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6045 
6046 
6047 
6048 
6049 
6050 
6051 
6052 
6053 
6054 
6055 
6056 
6057 
6058 
6059 
6060 
6061 
6062 
6063 
6064 
6065 
6066 
6067 
6068 
6069 
6070 
6071 
6072 
6073 
6074 
6075 
6076 
6077 
6078 
6079 
6080 
6081 
6082 
6083 
6084 
6085 
6086 



004AF 
004B0 

004B1 
004B2 

004B3 
004B4 
004B5 

004B6 

004B7 



004B8 



004B9 



/ 
/ 
/ 

/ 

/ 

/ 
/ 

/ 
/ 



ALIGN: 

/ 

/ 

/ 
/ 



YEXP :» Q (SHIFT COUNT); TEST IT. 
TEST (YEXP-25) 
Q := YL 

IF (YEXP-25) >= 0, DONE (SWAMP). 
ELSE GOTO FADD3 (IN COUNTER) 



CONT 

CJP FADD2 
CONT 

CJP NORM 
CONT 

CJP ALIGN 

CONT 

CONT 

CJP FADD2 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



AM2901 , YEXP, RAMF, PASS, ZQ 

LODUSR ; YEXP = SHIFT COUNT 

AM2901 YEXP, YL.QREG, PASS, ZB 



CONDUSR Z 



IF SHIFT COUNT 



JP 



AM2901 YEXP , , NOP , SUBR , DA 
CARRYL 
LUSRCOND 

I MM H#0019 ; SUB 25 

AM2901 YEXP, ZL, NOP, ADD, AQ 
CONDUSR NSGN ; Q=YL; IF SWAMP, 
AM2901 YEXP, ZL, RAMF , SUBR , DA 
CARRYL 
LUSRCOND 

I MM HiOOlO ; TEST FOR SHCT> 15 

AM2901 ,YU, NOP, PASS, ZB 

CONDUSR SGN ; JP IF SHCT<=15 

AM2901 YU,YU,QREG,PASS,ZB 

LODMSR SWAPUM ; QREG=YU 

AM2901 YU.YU, RAMF, SUBR, AB 

CARRYEXT ; 

CONDMSR SGN ; SIGN EXTEND IN YU 

AM2901 ,ZL, NOP, PASS, ZB 

CONDUSR Z ; 

SEQFRZ ; IF SHCT * 16 



DONE 



SHIFT (YU,Q) RIGHT BY (YEXP) BITS: 

LOAD 2910 COUNTER WITH SHIFT COUNT AND 
ARITHMETICALLY SHIFT RIGHT (CNTR) TIMES 



PUSH 



RFCT 



& AM2901 , YEXP , NOP , SUBR , ZB 
& CARRYH ; 

& SPETC LDCTY ; LOAD 2910 COUNTER 

& AM2901 , YU , SRAMQR , ADD , ZB 

& CARRYL ; 

& SHIFT B#1110 ; ARITH SHIFT 
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LINE ADDR STATEMENT 



6088 
6089 
6090 
6091 
6092 
6093 
6094 
6095 
6096 
6097 
6098 
6099 
6100 
6101 
6102 
6103 
6104 
6105 
6106 
6107 
6108 
6109 
6110 
6111 
6112 
6113 
6114 



(XU,Q) := (XU.XL) + (YU,Q) 
IF OVERFLOW, 

(XU.Q) := (XU,Q) RS 1 

XEXP := XEXP + 1 
XL := Q 

GO NORMALIZE & PACK. 



FADD2 : CONT & AM2901 XL , , QREG , ADD , AQ 

/ & CARRYL ; 

004BA / & LODUSR ; 

CONT & AM2901 YU , XU , RAMF , ADD , AB 

004BB / & CARRYUC ; 

CJP NORM & AM2901 , XL , RAMF , PASS , ZQ 

004BC / & CONDUSR NOVR ; 

CONT & AM2901 , XU , SRAMQR , ADD , ZB 

/ & CARRYL ; 

004BD / & SHIFT B#1110 ; 

CONT & AM2901 XU , XU , RAMF , EXOR , DA 

004BE / & I MM H#8000 

CONT & AM2901 , XEXP , RAMF , ADD , ZB 

004BF / 4 CARRYH ; 

JP NORM & AM2901 , XL , RAMF , PASS , ZQ 

004C0 / & SPNOP ; 

ROUTINE TO SWAP (XU.XL) AND (YU.YL) (GIVEN ZU.ZL SET UP) 

ALSO: XEXP := YEXP Q := -Q 
uZ = ZERO CONDITION FOR NEW YU 



6115 




SWAPFARG: 


CONT 


& 


AM2901 


YU.XU, RAMF, PASS, ZA 


6116 


004C1 


/ 




Sc 


SPNOP 




6117 






CONT 


& 


AM2901 


YL, XL, RAMF, PASS, ZA 


6118 


004C2 


/ 




& 


SPNOP 




6119 






CONT 


& 


AM2901 


YEXP, XEXP, RAMF, PASS, ZA 


6120 


004C3 


/ 




& 


SPNOP 




6121 






CONT 


& 


AM2901 


ZL.YL, RAMF, PASS, ZA 


6122 


004C4 


/ 




& 


SPNOP 




6123 






CONT 


& 


AM2901 


, , QREG, SUBS, ZQ 


6124 


004C5 


/ 




& 


CARRYH 




6125 






RET 


& 


AM2901 


ZU.YU, RAMF, PASS, ZA 


6126 


004C6 


/ 




& 


LODUSR 
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LINE ADDR STATEMENT 

6128 ; **********************^ 

6129 ; * 

6130 ' . FMP ' FLOATING-POINT MULTIPLY. * 

6131 * 

6132 ; MULTIPLY THE UNPACKED NUMBERS * 

6133 * 

6134 (XU.XL.XEXP) * (YU.YL.YEXP) --> (XU.XL.XEXP) * 

6135 * 

6136 OVERFLOW AND UNDERFLOW ARE POSSIBLE. THE RESULT * 

6137 MAY BE UNNORMALIZED BY ONE BIT. * 

6138 * 

6139 ; *********************^^ 
6140 

6141 READ SECOND OPERAND FROM MEMORY; UNPACK BOTH OPERANDS. 

6142 XEXP := XEXP + YEXP + 1 
6143 

6144 FMP: CALL DIARG 4 AM2901 BR , TABQ ,QREG , ADD , DZ 

6145 / 4 CARRYL 

6146 / 4 LODUSR ; 

6147 / 4 LDMAR ; 

6148 004C7 / 4 DREAD ; GET Y ARG 

6149 CALL UNPACK 4 AM2901 XL , XEXP , RAMF , PASS , ZA 

6150 / 4 LODMSR SWAPEO ; 

6151 004C8 / 4 ENBLC 4 ENBLO ; 

6152 ; 

6153 CONT 4 AM2901 YEXP , XEXP , RAMF , ADD , AB 

6154 004C9 / 4 CARRYH ; ADD EXPONENTS 

6155 CONT 4 AM2901 XL , ZL , RAMF , PASS , ZA 

6156 004CA / 4 SPNOP ; ZL = XL; 

6157 ; 

6158 ; (RO=XU INITIALLY) 

6159 Q : = YU 

6160 ; ZU := 0 R.S. Q INTO QOBUF CNTR = SHIFT OP = 14 

6161 ; MULTIPLY; (ZU.Q) := XU * YU (SEE CODE FOR ' MPY ' ) 

6162 ; 

6163 CONT 4 AM2901 , YU , QREG , PASS , ZB 

6164 004CB / 4 SPNOP ; 

6165 PUSH H#00E 4AM2901 , ZU , SRAMQR , AND , ZB 

6166 / 4 CARRYL ; 

6167 004CC / & SHIFT B#1110 ; 

6168 RFCT 4 AM2901 MPY , ZU , SRAMQR , ADD , AB 

6169 / 4 CARRYL ; 

6170 004CD / 4 SHIFT B#1110 

6171 CONT 4 AM2901 MPY , ZU , SRAMQR , SUBR , AB 

6172 / 4 CARRYL ; 

6173 004CE / 4 SHIFT B#1110 ; 

6174 CONT 4 AM2901 , XL , RAMF , PASS , ZQ 

6175 004CF / 4 SPNOP ; 
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LINE ADDR STATEMENT 



6177 
6178 
6179 
6180 
6181 
6182 
6183 
6184 
6185 
6186 
6187 
6188 
6189 
6190 
6191 
6192 



004D0 



004D1 



004D2 



004D3 



YL 
XL 
YL 
XU 
XL 
XU 



YL LS 4 
XL + XU*YL; 
ZL LS 4 
= YU 

XL + RO*YL; 
ZU 



CALL FMPYSUB 
CONT 

CALL FMPYSUB 

JP NORM 



(FOR FMPYSUB) 
PROPAGATE CARRY. 
(DONE IN FMPYSUB) 

PROPAGATE CARRY. 



& AM2901 YL.YL, RAMA, PASS, DZ 
& SPRD RL4 ; 
& AM2901 ZL.YL, RAMA, PASS, DZ 
& SPRD RL4 

& AM2901 YU.XU.RAMF , PASS , ZA 
& SPNOP 

& AM2901 ZU,XU,RAMF,PASS,ZA 
& SPNOP 
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LINE ADDR STATEMENT 

6194 ; MULTIPLY SUBROUTINE; MULTIPLIES XU*YL, AND ADDS THE 

6195 ; MSW TO (ZU.XL). XU IS SIGNED, AND THE LOWER 8 BITS 

6196 ; OF YL ARE ZERO . 

6197 ; THE PRODUCT IS DEVELOPED IN ( YL , Q) ; IF IT IS NEGATIVE, 

6198 ; WE MUST SUBTRACT ONE FROM ZU . IF THE ADD TO XL HAS 

6199 ; A CARRY OUT, WE MUST ADD ONE TO ZU . 

6200 ; 

6201 ; YL := YL LS 4 (COMPLETE SWAPPING BYTES) 

6202 ; Q : = YL 

6203 ; (DO 8 MULTIPLY STEPS; RESULT -> (YL,Q) 

6204 ; 

6205 FMPYSUB: CONT & AM2901 YL , YL , RAMA , PASS ,DZ 

6206 004D4 / 4 SPRD RL4 ; 

6207 LDCT H#007 & AM2901 , YL , QREG , PASS , ZB 

6208 004D5 / & LODMSR RESET ; YL TO QREG 

6209 CPUSH & AM2901 , YL , SRAMQR , AND , ZB 

6210 / & CARRYL 

6211 / & CONDMSR SGN ; 

6212 004D6 / & SHIFT B#1110 ; NEVER LOAD COUNTER 

6213 RFCT & AM2901 MPY , YL , SRAMQR , ADD , AB 

6214 / & CARRYL ; 

6215 / & SHIFT B#1110 ; 

6216 / & LODMSR ; 

6217 004D7 / & ENBLO 
6218 

6219 ; (BIT16 INDICATES IF PRODUCT < 0) 

6220 ; XL := XL + YL; PROPAGATE CARRY TO ZU. 

6221 ; YL := ZL LS 4 (HAVE TO USE THE CYCLE ANYWAY) 

6222 ; IF PRODUCT<0, DECREMENT ZU . 

6223 ; 

6224 CONT & AM2901 YL , XL , RAMF , ADD , AB 

6225 / & CARRYL ; 

6226 004D8 / & LODUSR ; 

6227 CONT & AM2901 , ZU , RAMF , ADD , ZB 

6228 004D9 / & CARRYUC ; 

6229 RET & AM2901 , ZU , RAMF , SUBR , ZB 

6230 / & CARRYEXT ; 

6231 004DA / & CONDMSR SLT ; SUB 1 IF LESS THAN 
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LINE ADDR STATEMENT 



6233 ; *************************************** 

6234 ; * 

6235 ; . FDV ' FLOATING-POINT DIVIDE . * 

6236 ; * 

6237 ; DIVIDE THE UNPACKED NUMBERS * 

6238 ; * 

6239 ; (XU.XL.XEXP) / (YU.YL.YEXP) --> (XU.XL.ZEXP) * 

6240 ; * 

6241 ; THE OPERANDS MUST BE NORMALIZED OR ZERO * 

6242 * 

6243 ; OVERFLOW AND UNDERFLOW ARE POSSIBLE; DIVIDE BY ZERO * 

6244 IS TREATED AS OVERFLOW. THE RESULT MAY BE * 

6245 ; UNNORMALIZED BY ONE BIT. * 

6246 ; * 

6247 ; ******************************************************************* 

6248 

6249 ; READ SECOND OPERAND FROM MEMORY; UNPACK BOTH OPERANDS. 

6250 ; 



6259 

6260 

6261 

6262 

6263 

6264 

6265 

6266 

6267 

6268 

6269 

6270 

6271 

6272 

6273 

6274 

6275 

6276 

6277 

6278 

6279 

6280 

6281 

6282 

6283 

6284 

6285 
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LINE ADDR STATEMENT 



6286 
6287 
6288 
6289 
6290 
6291 
6292 
6293 
6294 
6295 
6296 
6297 
6298 
6299 
6300 
6301 
6302 
6303 
6304 
6305 
6306 
6307 
6308 



004E2 



004E3 



004E4 



004E5 



004E6 



004E7 



/ 

FDIV1 : 
/ 



004E8 



FDIV2 

/ 

/ 



CONT 
CONT 

CJP FOFL 
CJP FDIV2 

CONT 

LDCT FDVPAT 



4 AM2901 YU , SO , RAMF , SUBS , ZB 
4 CARRYUC 

4 AM2901 YU, YEXP, RAMF , PASS, ZA 
4 LODMSR 

4 AM2901 XU,YU,RAMF,EXOR,AB 
4 CONDMSR Z 
4 AM2901 , XL, RAMF 
& CARRYL 
& CONDMSR NSGN 
& AM2901 , YL , RAMF 
& CARRYH 
& LODUSR 

& AM2901 ,YEXP, RAMF , SUBS, ZB 
& CARRYUC ; 



AND , ZB 
SO THERE IS NO OVERFLOW 
LOADS USR 
SUBS.ZB 



YEXP := YEXP + 1 

CALL FDIVSUB TO DIVIDE: 

SO :« REM (W/O LAST CORRECTION) 

Q := .NOT. QUOTIENT 



JSRP FDIVSUB 



& AM2901 , YEXP, RAMF, ADD, ZB 
4 CARRYH ; 
4 CONDUSR NOVR 
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LINE ADDR STATEMENT 

6310 ; IF S0<0 THEN 

6311 SO := SO + YEXP 

6312 ; ZU := .NOT. Q 

6313 IF ZU<0 THEN RESULT := 0 

6314 ; SO := SO + ZU 
6315 

6316 CONT 4 AM2901 , ZU , RAMF , EXNOR , ZQ 

6317 004E9 / & LODUSR ; ZU =.NOT. Q 

6318 CJP FDIV5 4 AM2901 ZU , SO , NOP , PASS , ZB 

6319 004EA / & CONDUSR SGN ; IF <0 , RES=0 

6320 CJP FDIV3 4 AM2901 ZU , SO , RAMF , ADD , AB 

6321 / & CARRYL ; 

6322 004EB / & CONDUSR NSGN ; 

6323 CONT 4 AM2901 YEXP , SO , RAMF , ADD , AB 

6324 004EC / & CARRYL ; S0= SO + YEXP 

6325 ; 

6326 ; A :» ZU 

6327 ; YL := YL LS 4 

6328 ; CALL FMPYSUB TO: XL := YL*A (UPPER) 

6329 ; 

6330 FDIV3: CONT 4 AM2901 ZU , A , RAMF , PASS , ZA 

6331 004ED / 4 SPNOP ; 

6332 CALL FMPYSUB & AM2901 YL , YL , RAMA , PASS , DZ 

6333 004EE / 4 SPRD RL4 ; 

6334 ; 

6335 ; SO := SO-XL 

6336 ; |SO,Q) : = (SO.Q) RS 2 

6337 ; XEXP := XEXP + 1 

6338 ; CALL FDIVSUB DIVIDE: Q := .NOT. QUOTIENT 

6339 ; 

6340 CONT & AM2901 XL , SO , SRAMQR , SUBR , AB 

6341 / 4 CARRYL ; 

6342 004EF / 4 SHIFT B#0110 ; 

6343 CONT & AM2901 , SO , SRAMQR , PASS , ZB 

6344 / 4 SHIFT B#0110 ; 

6345 004F0 / 4 SPNOP ; 

6346 CALL FDIVSUB & AM2901 , XEXP , RAMF , ADD , ZB 

6347 004F1 / 4 CARRYH ; 
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6349 

6350 

6351 

6352 

6353 

6354 

6355 

6356 

6357 

6358 

6359 

6360 

6361 

6362 

6363 

6364 

6365 

6366 

6367 

6368 

6369 

6370 

6371 

6372 

6373 

6374 

6375 

6376 

6377 

6378 

6379 

6380 

6381 

6382 

6383 

6384 

6385 

6386 

6387 

6388 

6389 

6390 

6391 



004F2 
004F3 
004F4 



004F5 

004F6 

004F7 
004F8 



004F9 



004FA 

004FB 
004FC 



/ 
/ 
/ 



/ 
/ 

/ 
/ 



FDIV5 : 
/ 



XL := .NOT. Q 
Q := 0 

(XL,Q) := (XL.Q) LS 2 CIRCULAR 

CONT & AM2901 , XL , RAMF , EXNOR , ZQ 

& SPNOP ; 

PUSH H#001 & AM2901 , ,QREG , AND , ZQ 

4 SPNOP ; 

RFCT & AM2901 , XL , SRAMQL , PASS , ZB 

& SHIFT B#llll 

XU := ZU + Q 

IF OPERAND SIGNS DIFFER, NEGATE RESULT . 



CONT 
CJP 

CONT 

JP 



4 AM2901 ZU.YU, NOP, PASS, ZB 

& LODUSR ; 
NORM & AM2901 ZU , XU , RAMF , ADD , AQ 

4 CARRYL ; 

4 CONDUSR NSGN 

4 AM2901 , XL, RAMF , SUBS, ZB 

4 CARRYH ; 

4 LODUSR ; 
NORM 4 AM2901 , XU , RAMF , SUBS , ZB 

4 CARRYUC ; 



ZERO DIVIDEND (FOUND OUT THE HARD WAY). 
XU := 0 (XL=0 ALREADY) 

JP NORM 4 AM2901 , XU , RAMF , AND , ZB 

4 SPNOP ; 

DIVIDE SUBROUTINE; DIVIDES (SO.Q) BY YEXP. 

THE FINAL REMAINDER RESTORE IS NOT DONE, 

SINCE ON THE SECOND CALL THE REMAINDER IS DISCARDED. 



FDIVSUB: PUSH H#010 
/ 

RFCT 

/ 
/ 
/ 

RET 

/ 



4 AM2901 YEXP, SO, NOP, PASS, ZB 

4 DIVUCOND ; 

4 AM2901 YEXP, DIV, SRAMQL, SUBR ,AB 

4 CARRYL ; 

4 DIVUCOND ; 

4 SHIFT B#llll ; 

4 AM2901 , SO , SRAMR , PASS , ZB 

4 SHIFT B#llll 



D-157 



A600+ BASESET MICROCODE 6/15/83 ** [4LBRB1] 
LINE ADDR STATEMENT 



1:35 PM TUE . , 13 SEPT, 1983 PAGE 163 



6393 

6394 

6395 

6396 

6397 

6398 

6399 

6400 

6401 

6402 

6403 

6404 

6405 

6406 

6407 

6408 

6409 

6410 

6411 

6412 

6413 

6414 

6415 

6416 

6417 

6418 

6419 

6420 

6421 

6422 

6423 

6424 

6425 

6426 

6427 

6428 

6429 

6430 

6431 

6432 

6433 

6434 

6435 

6436 

6437 

6438 

6439 

6440 

6441 

6442 

6443 



004FD 
004FE 
004FF 
00500 



00501 
00502 
00503 
00504 

00505 

00506 



*********************************^^ 

UNPACK . FETCH 2ND OPERAND 4 UNPACK BOTH: * 

* 
* 

* 
* 

* 
* 

************************************^ 



( A , B ) => (XU, XL, XEXP) 
(MEM.MEM+l) => (YU.YL.YEXP) 
NOTE THAT A=XU AND B=XL. 

TO UNPACK ( A , B ) ONLY (FOR FIX), ENTER AT 
'UNPACKl' WITH E & 0 SWAPPED AND XEXP=B. 



UNPACK: 
/ 

/ 

/ 

/ 



YL := (YEXP 
YEXP := (YEXP 
IF YEXP<0 THEN 
YEXP :« YEXP 
EXIT 

CONT 

CONT 

CJP UNPACKl 
CONT 



AND. FFOO) 

XOR. YL) SHIFT RIGHT INTO MC 
.OR. FF80 



4 AM2901 YEXP , YL , RAMF , AND , DA 

4 I MM H#FF00 ; 

4 AM2901 YL , YEXP , SRAMR , EXOR , AB 

4 SHIFT B#0010 ; 

4 AM2901 YEXP, YEXP, NOP, ADD, AQ 

4 CONDMSR NC ; DOES NOTHING 

4 AM2901 YEXP, YEXP, RAMF, OR, DA 

4 IMM H#FF80 



XL := (XEXP . AND 
XEXP := (XEXP .XOR 
IF MC=1 THEN 

XEXP := XEXP OR. FF80 
MC := 0 

SWAP E,0 BACK: E RESTORED , 0=0 



FFOO) 

XL) RIGHT SHIFT INTO MC 



UNPACKl: CONT 

/ 



/ 

/ 

/ 

/ 
/ 

UNPACK2: RET 

/ 

/ 



CONT 

CJP UNPACK2 
CONT 
CONT 



4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 



AM2901 XL, XL, RAMF, AND, DA 

IMM H#FFOO ; MASK OFF EXPONENT 

AM2901 XL, XEXP, SRAMR, EXOR, AB 

SHIFT B#0010 ; YEXP = EXP, MC=EXP SIGN 

AM2901 , , NOP ,ADD ,AQ 

CONDMSR NC ; IF NOT NEG EXP, JP 

AM2901 XEXP, XEXP, RAMF, OR, DA 

IMM H#FF80 ; SIGN EXTEND EXPONENT 

AM2901 , , NOP , ADD , AQ 

LODMSR RESET ; 

ENBLC ; CLEAR MC FOR SWAP 

AM2901 , XEXP, NOP, PASS, ZB 
LODMSR SWAPEO ; 
ENBLC 4 ENBLO ; 
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6445 


****************************************** 


6446 


* 


* 


6447 


* 


Double Precision Floating Microcode * 


6448 


* 


* 


6449 


* 


This module includes: * 


6450 


* 


* 


6451 


* 


- Double Precision Floating Point instructions * 


6452 


* 


* 


6453 


* 


. TADD * 


6454 


* 


TSUB * 


6455 


* 


. TMPY * 


6456 


* 


. TDIV * 


6457 


* 


. TFTS * 


6458 


* 


. TFTD * 


6459 


* 


.TFXS * 


6460 


* 


. TFXD * 


6461 


* 


* 


6462 


***************************************************************** 
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LINE ADDR STATEMENT 

6464 ; *************************************** 

6465 ; * Lightning Double Precision Floating Point Microcode * 

6466 ■ * Version 1.0 B.G. 08/24/82 * 

6467 ;* MODIFIED APRIL 1983 FOR THUNDER PROCESSOR JFM * 

6468 ;* * 

6469 ;* A,B,X,Y,Q,Z,PC preserved. MP: result sign and exp. * 

6470 ;* S0-S3: mantissa 1st op, result. S4-S7: mantissa 2nd opnd. * 

6471 ;* * 

6472 ; ***************************************************************** 

6473 ; 

6474 ; FETCH DOUBLE PRECISION ARGUMENTS. 

6475 ; 

6476 At DBLARG1: Read of first word must have been started. 

6477 ; argument is read 4 unpacked into S0-S3 

6478 ; and MP; Q is destroyed. 

6479 ; At DBLARG2: As above, but into S4-S7 and Q. 

6480 ; DBLARG1 copies (E) into (0) and clobbers (E). 

6481 ; DBLARG2 clobbers (E ) but not (0). 

6482 ; 

6483 DBLARG1: CALL READRES 4AM2901 ,,N0P,ADD,AQ 

6484 00507 / 4 SPNOP ; 

6485 CONT 4AM2901 , ,QREG , ADD , ZQ 

6486 / 4 CARRYH ; 

6487 / & LODMSR SWAPEO ; 

6488 / & ENBLC & ENBLO ; 

6489 00508 / 4 LDMAR 

6490 DBLARG1A : CALL INCQ & AM2901 TAB , SO , RAMF , PASS , DZ 

6491 00509 / & DREAD ; SO = 1ST WORD, READ 2ND W 

6492 CALL INCQ 4 AM2901 TAB , SI , RAMF , PASS , DZ 

6493 0050A / & DREAD ; SI = 2ND WORD, READ 3RD W 

6494 CONT & AM2901 TAB , S2 , RAMF , PASS , DZ 

6495 0050B / & DREAD ; S2 = 3RD WORD, READ 4TH W 

6496 CONT & AM2901 , S3 , RAMF , EXNOR , DZ 

6497 0050C / & IMM H#FF00 ; S3 = EXP MASK 

6498 CONT 4 AM2901 TAB , ,QREG , PASS ,DZ 

6499 0050D / & SPNOP ; Q = 4TH WORD 

6500 CONT & AM2901 S3 , MP , SRAMR , AND , AQ 

6501 0050E / 4 SHIFT B#0010 ; MP = EXP ; MC = EXP SIGN 

6502 CRET 4 AM2901 S3 , S3 , RAMF , NOTRS , AQ 

6503 0050F / 4 CONDMSR NC ; S3 = REMAINDER OF MANTISS 

6504 ; RETURN IF EXP IS POSITIVE 

6505 RET 4 AM2901 MP , MP , RAMF , OR , DA 

6506 00510 / 4 IMM H#FF80 ; SIGN EXTEND EXPONENT, RET 
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LINE ADDR STATEMENT 



6508 
6509 
6510 
6511 
6512 
6513 
6514 
6515 
6516 
6517 
6518 
6519 
6520 
6521 
6522 
6523 
6524 
6525 
6526 
6527 
6528 
6529 
6530 
6531 
6532 



00511 



00512 
00513 
00514 
00515 
00516 
00517 
00518 
00519 
0051A 



DBLARG2: CALL 

/ 

/ 

CONT 

/ 
/ 
/ 
/ 

DBLARG2A: CALL 
/ 



READRES 



CALL 

CONT 

CONT 

CONT 

CJP 

CONT 



DBLARG2B: RET 



INCQ 



INCQ 



DBLARG2B 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



AM2901 ,,NOP,ADD,AQ 
LODMSR SWAPEO ; SWAP E & 0 BACK 
ENBLC & ENBLO ; IN CASE READIND GETS 
AM2901 , ,QREG , ADD , ZQ 
CARRYH 

LODMSR SWAPEO 
ENBLC & ENBLO 
LDMAR 



INT ' 



AM2901 
DREAD 
AM2901 
DREAD 
AM2901 
DREAD 
AM2901 
I MM H#007F 
AM2901 TAB 



E & 0 SWAPPED AGAIN 
MAR = 2ND WORD ADDRESS 
TAB, S4.RAMF, PASS, DZ 

; S4 = 1ST WORD, READ 2ND W 
TAB, S5.RAMF, PASS, DZ 

; S5 = 2ND WORD, READ 3RD W 
TAB, S6.RAMF, PASS, DZ 

; S6 = 3RD WORD, READ 4TH W 
QREG.PASS.DZ 

; QREG = EXP MASK 
S7,SRAMR,PASS,DZ 



,S7 , 



SHIFT B#1000 ; S7 = 4TH WORD SRI, MC=EXP 
AM2901 S7 , S7 , QREG , AND ,AQ 

CONDMSR NC ; JP IF EXPONENT POSITIVE 

AM2901 S7,S7,QREG,0R,DQ 
I MM H#FF80 ; SIGN EXTEND EXPONENT 

AM2901 S7,S7,SRAML,AND,DA 

I MM H#FF80 ; S7 = REMAINDER; SHIFT IS 

; MC IS SIGN OF EXPONENT 
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6535 

6536 

6537 

6538 

6539 

6540 

6541 

6542 

6543 

6544 

6545 

6546 

6547 

6548 

6549 

6550 

6551 

6552 

6553 

6554 

6555 

6556 

6557 

6558 

6559 

6560 

6561 

6562 

6563 

6564 

6565 

6566 

6567 

6568 

6569 

6570 

6571 

6572 

6573 

6574 

6575 

6576 

6577 

6578 

6579 

6580 

6581 

6582 

6583 

6584 

6585 

6586 



0051B 



0051C 



0051D 
0051E 
0051F 

00520 

00521 



00522 
00523 

00524 



Fix double precision to single integer. 
Result ends up in A register 

JSB .TFXS 
DEF OPERAND 



* 
* 
* 
* 
* 
* 
* 



First, check for negative exponent and 
exponent >= 15. 



TFXS: 



/ 
/ 
/ 
/ 

/ 
/ 
/ 
/ 

/ 
/ 
/ 
/ 



/ 

/ 
/ 
/ 

TEND: 

/ 
/ 
/ 



TFXS1 

/ 
/ 

/ 

/ 
/ 



CCALL READRES 



CALL DBLARG2A 



CONT 



CJP 



TFXS3 



CJP TFXS1 



CONT 



JZ 



& 
4 
4 
4 
& 
4 
4 
4 
4 
4 
4 
4 
& 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 



, QREG , ADD , ZQ 



SWAPEO 
ENBLO 



AM2901 BR , TABQ , QREG , ADD , DZ 
CARRYL 

CONDEXT MDIR15 
LDMAR 
DREAD 
AM2901 
CARRYH 
LODMSR 
ENBLC 4 
LDMAR 

AM2901 PC, MP, RAMA, SUBS, DQ 
CARRYH 
LUSRCOND 
IMM H#000F 
LDMAR 

AM2901 S7.S5 
CONDUSR SLE 
AM2901 S6.S5 
CONDMSR NC 
AM2901 
LODMSR 

ENBLC & ENBLO 
IFETCH 



MAR = NEXTINST 
RAMF , OR , AB 



QREG, AND, ZQ 
; MSR C SET 
, A , RAMF , AND , ZB 
SWAPEO 



IN DBLARG2 



AM2901 
CARRYH 
LODMSR 
ENBLO 



, PC, RAMF 



RESET 



ADD , ZB 



CLEAR 0 



Load the counter for (15-exp) loops; shift (A,Q) 
Also start the next instruction fetch. 



CONT 

CONT 
PUSH 

RFCT 



& AM2901 S6,S5,RAMF,0R,AB 

4 LODMSR SWAPEO ; 

& ENBLC & ENBLO 

4 AM2901 S4,A,RAMF,PASS,ZA 

4 SPNOP ; 

4 AM2901 ,MP,RAMF,SUBR,ZB 

4 CARRYH 

4 SPETC LDCTY ; 

4 AM2901 S5 , A , SRAMQR , ADD , ZB 

4 CARRYL ; 
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LINE 


ADDR 


STATEMENT 








6587 




/ 




& 


SHIFT B#1110 ; 


65 88 


00525 


/ 




& 


LODUSR ; 


6589 












6590 






If value negative and bits shifted off, add 


6591 












6592 




TFXS2 : 


CJP TEND 


& 


AM2901 S5 , PC, NOP, OR ,AQ 


6593 




/ 




& 


CONDUSR NSGN ; 


6594 


00526 


/ 




& 


CMGO & IFETCH ; 


6595 






JP TEND 


& 


AM2901 , A , RAMF , ADD , ZB 


6596 




/ 




& 


CARRYEXT ; 


6597 




/ 




& 


CONDUSR NZ ; 


6598 


00527 


/ 




& 


IFETCH 


6599 












6600 






Exponent is > 


14; 15 => no shift, other => 


6601 












6602 




TFXS3 : 


CONT 


& 


AM2901 ,S6,QREG,PASS,ZB 


6603 




/ 




& 


LODMSR SWAPEO ; 


6604 


00528 


/ 




& 


ENBLC & ENBLO ; 


6605 






CONT 


& 


AM2901 , MP, NOP, PASS, ZB 


6606 


00529 


/ 




& 


LODUSR 


6607 






CJP TFXS2 


& 


AM2901 S4 , A , RAMF , PASS , ZA 


6608 


0052A 


/ 




& 


CONDUSR Z ; 


6609 




TFXSOV: 


CONT 


& 


AM2901 , A , RAMF , EXNOR , DZ 


6610 




/ 




& 


IMM H*8000 ; 


6611 


00528 


/ 




& 


IFETCH 


6612 






JZ 


& 


AM2901 , PC, RAMF, ADD, ZB 


6613 




/ 




& 


CARRYH ; 


6614 




/ 




& 


LODMSR SET ; 


6615 


0052C 


/ 




& 


ENBLO ; 
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6617 

6618 

6619 

6620 

6621 

6622 

6623 

6624 

6625 

6626 

6627 

6628 

6629 

6630 

6631 

6632 

6633 

6634 

6635 

6636 

6637 

6638 

6639 

6640 

6641 

6642 

6643 

6644 

6645 

6646 

6647 

6648 

6649 

6650 

6651 

6652 

6653 

6654 

6655 

6656 

6657 

6658 

6659 

6660 

6661 

6662 

6663 



0052D 
0052E 
0052F 
00530 



00531 



00532 



00533 



00534 



00535 



****************************************** 

* * 

* Float single integer to double precision. * 

* * 

* JSB . TFTS * 

* DEF RESULT * 

* * 
***************************************************************** 



TFTS: 

/ 
/ 

/ 

TFTS1 : 

/ 

/ 



00536 



TFTS2: 

/ 

/ 

/ 
/ 

/ 
/ 
/ 

/ 
/ 

/ 
/ 



TFTS3 : 

/ 

/ 



First, test for zero 4 clear 0. 



CONT 



LDCT DNCOUNT1 



CJP TFTS2 



JP 



TFTS3 



4 AM2901 , S2 , RAMF , AND , ZB 
& LODMSR SWAPEO ; S2 = 0 
4 ENBLC 4 ENBLO ; SWAP E & 
& AM2901 A , SO , RAMF , PASS , ZA 
4 LODUSR ; SO = A 

4 AM2901 , SI, RAMF, AND, ZB 
4 CONDUSR NZ ; SI = 0 

4 AM2901 PC, S3, RAMF, AND, ZB 
& SPNOP ; S3 = 0 



Normalize: shift until the most significant 
bit is shifted out. Then shift msb and sign 
bit back in from E and .NOT. E 



CPUSH 



TWB 



CONT 



JSRP 



CONT 



4 AM2901 ,S0,SRAML,PASS,ZB 
4 CONDMSR SGN ; NEVER LOAD COUNTER 
4 SHIFT B#0000 ; IRSKP = SO 
4 AM2901 ,SO,SRAML,PASS,ZB 
4 CONDEXT IRSKBF ; 
4 SHIFT B#0000 ; 
4 AM2901 ,SO,SRAMR,PASS,ZB 
4 LODMSR INVERT ; 
4 ENBLC 
4 SHIFT B#0100 
4 AM2901 , SO.SRAMR , PASS , ZB 
4 CONDMSR NSGN ; ALWAYS JSR 
4 SHIFT B#0100 ; RESTORE SIGN 
4 AM2901 S7,S3,SRAML,SUBS,DA 
4 CARRYH ; 
4 I MM H#0010 ; Shift = 0000 



Write result 4 exit . 

JP DSTORE 4 AM2901 PC , S5 , RAMF , PASS , ZA 

4 LODMSR RESET ; PC POINTS TO NEXT INST 
4 ENBLC ; CLEAR MC ( =M0 AFTER DSTOR 



INVERT MC 
RESTORE MSB 
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6665 
6666 
6667 
6668 
6669 
6670 
6671 
6672 
6673 
6674 
6675 
6676 
6677 
6678 
6679 
6680 
6681 
6682 
6683 
6684 
6685 
6686 
6687 
6688 
6689 
6690 
6691 
6692 
6693 
6694 
6695 
6696 
6697 
6698 
6699 
6700 
6701 
6702 
6703 
6704 
6705 
6706 
6707 
6708 
6709 
6710 
6711 
6712 
6713 
6714 



00537 



00538 



00539 
0053A 



0053B 

0053C 
0053D 

0053E 
0053F 

00540 
00541 



Fix double precision to double integer. 
Double integer ends up in A & B 

JSB . TFXD 
DEF OPERAND 



* 
* 
* 
* 
* 
* 
* 



Get value; test for exponent > 14. 



.TFXD: 

/ 

/ 

/ 

/ 

/ 
/ 
/ 
/ 

/ 
/ 
/ 
/ 



/ 
/ 

/ 

TFXD1 : 

/ 

/ 

/ 

/ 
/ 

/ 
/ 
/ 



CCALL READRES 



CALL DBLARG2A 



CONT 



CJP TFXD4 

Exponent small 
CJP TFXD1 
CONT 

JP TEND 
CONT 

CONT 
PUSH 

RFCT 



& AM2901 BR , TABQ , QREG , ADD , DZ 
& CARRYL 
& CONDEXT MDIR15 
& LDMAR 
& DREAD 

& AM2901 , , QREG, ADD, ZQ 
& CARRYH 
& LODMSR SWAPEO 
A ENBLC & ENBLO 
& LDMAR 
& AM2901 PC, MP, RAMA, SUBS, DQ 
& CARRYH 
& IMM H#000F 
& LUSRCOND 
& LDMAR 

& AM2901 S7 , S6 , RAMF , OR , AB 
& CONDUSR SLE ; 



MAR = NEXTINST 



If < 0, return 0; else shift 



& AM2901 S6,S5,RAMF,OR,AB 
& CONDMSR NC ; MSR C 

& AM2901 , A , RAMF , AND , ZQ 
& LODMSR SWAPEO ; 
& ENBLC & ENBLO 
& AM2901 , B , RAMF , AND , ZQ 
& IFETCH ; 
& AM2901 , , QREG, AND, ZQ 
& LODMSR SWAPEO ; 
& ENBLC & ENBLO ; 
& AM2901 S4,B, RAMF, PASS, ZA 
& SPNOP ; 
& AM2901 ,MP,NOP,SUBR,ZB 
& CARRYH ; 
& SPETC LDCTY ; 
& AM2901 S5 , B , SRAMQR , ADD , ZB 
& CARRYL 
& SHIFT B#1110 
& LODUSR 



EXP SIGN FRM DBLA 
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6716 
6717 
6718 
6719 
6720 
6721 
6722 
6723 
6724 
6725 
6726 
6727 
6728 
6729 
6730 
6731 
6732 
6733 
6734 
6735 
6736 
6737 
6738 
6739 
6740 
6741 
6742 
6743 
6744 
6745 
6746 
6747 



00542 
00543 

00544 
00545 



00546 

00547 
00548 

00549 
0054A 
0054B 



/ 

/ 
/ 

TFXD2 : 
/ 
/ 
/ 

TFXD3 : 
/ 



TFXD4: 

/ 

/ 

/ 



/ 
/ 

/ 

/ 



If negative 4 bits lost, increment it 
CJP TFXD3 
CONT 



Extend sign. 



JP 



JP 



TEND 



TEND 



4 AM2901 S5,B,NOP,OR,AQ 
4 CONDUSR NSGN ; 
& AM2901 , B , RAMF , ADD , ZB 
4 CARRYEXT ; 

4 CONDUSR NZ ; IF NEG AND BITS, ADD 1 

4 AM2901 A , A , RAMF , SUBR , AB 

4 CARRYEXT ; 

& CONDUSR NC 

4 IFETCH ; 

4 AM2901 A , A , RAMF , EXOR , AB 

4 IFETCH ; 



Exponent > 14; test for exp >= 31, take abs value 

CONT 4 AM2901 MP , MP , RAMF , ADD , DA 

4 CARRYL ; 

4 I MM H*0010 ; 

4 LUSRCOND ; 
CJP TFXD7 4 AM2901 S4 , A , RAMF , PASS , ZA 

4 CARRYL ; 

4 CONDUSR SLE ; 
CJP TFXD5 4 AM2901 , S5 , QREG , PASS , ZB 

4 CONDUSR NSGN 
CONT 4 AM2901 , S6 , NOP , SUBS , ZB 

4 CARRYH ; 

4 LODUSR ; 
CONT 4 AM2901 ,, QREG , SUBS , ZQ 

4 CARRYUC ; 
CONT 4 AM2901 , A , RAMF , SUBS , ZB 

4 CARRYUC ; 
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6749 

6750 

6751 

6752 

6753 

6754 

6755 

6756 

6757 

6758 

6759 

6760 

6761 

6762 

6763 

6764 

6765 

6766 

6767 

6768 

6769 

6770 

6771 

6772 

6773 

6774 

6775 

6776 

6777 

6778 

6779 

6780 

6781 

6782 

6783 

6784 

6785 

6786 

6787 

6788 

6789 



Shift. If original value was negative, negate. 



0054C 
0054D 

0054E 

0054F 

00550 

00551 



00552 
00553 
00554 

00555 

00556 

00557 

00558 



TFXD5: 

/ 

/ 

/ 

/ 
/ 

/ 
/ 

/ 
/ 

/ 
/ 



TFXD7 : 

/ 

/ 

/ 

/ 

/ 
/ 

/ 
/ 

/ 
/ 

TFXD8 
/ 



PUSH 

RFCT 
CONT 

CJP TEND 
CONT 

JP TEND 



& AM2901 ,MP,RAMF,SUBR,ZB 
& CARRYH ; 
& SPETC LDCTY ; 
& AM2901 ,A,SRAMQR,PASS,ZB 
& SHIFT B#0110 
& AM2901 ,S4, NOP, PASS, ZB 
& LODMSR SWAPEO 
& ENBLC & ENBLO ; 
& AM2901 , B , RAMF , PASS , ZQ 
CONDMSR NSGN ; 
CMGO & IFETCH ; 

B, RAMF, SUBS, ZB 



AM2901 
CARRYH ; 
LODUSR ; 
AM2901 , A , RAMF , SUBS , ZB 
CARRYUC ; 
IFETCH 



Exp >= 31; overflow or no shift. 

CONT & AM2901 S5 , MP , NOP , PASS , ZB 

& LODMSR SWAPEO ; 
& ENBLC & ENBLO 
TFXD8 & AM2901 S5 , B , RAMF , PASS , ZA 

& CONDUSR NZ ; 
& AM2901 , S4, NOP, PASS, ZB 
& LODUSR ; 
TEND & AM2901 , S6 , NOP , PASS , ZB 

& CONDUSR NSGN ; 
& CMGO & IFETCH ; 
4 AM2901 ,B, RAMF, ADD, ZB 
& CARRYEXT ; 
& CONDUSR NZ ; IF S6<>0, INC B 

TEND & AM2901 , A , RAMF , ADD , ZB 

& CARRYUC ; 

& IFETCH ; IF CARRY FROM B, INC A 

TFXSOV & AM2901 B , B , RAMF , EXNOR , AB 

& SPNOP ; B = ONES 



CJP 

CONT 

CJP 

CONT 

JP 

JP 



D-167 



A600+ BASESET MICROCODE 6/15/83 ** [4LBRB1] 
LINE ADDR STATEMENT 



1:35 PM TUE . , 13 SEPT, 1983 PAGE 173 



6791 

6792 

6793 

6794 

6795 

6796 

6797 

6798 

6799 

6800 

6801 

6802 

6803 

6804 

6805 

6806 

6807 

6808 

6809 

6810 

6811 

6812 

6813 

6814 

6815 

6816 

6817 

6818 

6819 

6820 

6821 

6822 

6823 

6824 

6825 

6826 

6827 

6828 

6829 

6830 

6831 

6832 

6833 

6834 

6835 

6836 

6837 



00559 

0055A 
0055B 



0055C 
0055D 
0055E 



0055F 
00560 

00561 

00562 

00563 
00564 



****************************************** 

* * 

* Float double integer to double precision. * 

* Double integer is in A 4 B * 

* * 

* JSB . TFTD * 

* DEF RESULT * 

* * 
*************************************^ 



TFTD: 



/ 
/ 

/ 
/ 



/ 
/ 
/ 



TFTD1 : 

/ 
/ 

/ 
/ 

/ 
/ 
/ 

/ 
/ 

/ 
/ 



CONT 

LDCT DNCOUNT1 

CJP TFTD1 

A is 0 or -1; 
CONT 

CJP TFTS1 
CONT 



4 AM2901 , S2 , RAMF , AND , ZB 
4 LODMSR SWAPEO ; S2 = 0 
& ENBLC 4 ENBLO ; SWAP E & 0 
& AM2901 A , SO , RAMF , OR , ZA 
4 CARRYH ; SET COUNTER 

4 LODUSR ; SO = A 

4 AM2901 ,B,QREG,PASS,ZB 
4 CONDUSR UGT ; IF NOT ZERO OR ONES 

if same as sign of B, use TFTS 

4 AM2901 A , B , NOP , EXOR , AB 

4 LODUSR ; SET SIGN 

4 AM2901 B, SO, RAMF, PASS, ZA 

4 CONDUSR NSGN ; IF SIGNS THE SAME 

4 AM2901 A , SO , RAMF , PASS , ZA 

4 SPNOP 



A has significant bit; normalize. 



CPUSH 



TWB 



CONT 



JSRP 



CONT 



JP TFTS3 



4 AM2901 ,SO,SRAMQL,PASS,ZB 

4 CONDMSR SGN ; NEVER LOAD COUNTER 

4 SHIFT B#0100 ; IRSKP = 0 

4 AM2901 ,SO,SRAMQL,PASS,ZB 

4 CONDEXT IRSKBF ; 

4 SHIFT B#0100 ; NORMALIZE 

4 AM2901 ,SO,SRAMQR,PASS,ZB 

4 LODMSR INVERT ; E = SIGN 

4 ENBLC ; 

4 SHIFT B#0100 ; RESTORE MSB 

4 AM2901 , SO , SRAMQR , ADD , ZB 

4 CONDMSR NSGN ; ALWAYS JSR 

4 SHIFT B#0100 ; RESTORE SIGN 

4 AM2901 S7,S3,SRAML,SUBS,DA 

4 CARRYH ; 

4 I MM H#0020 ; Shift = 0000. 

4 AM2901 , SI , RAMF , PASS, ZQ 

4 SPNOP ; SI = QREG 
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LINE ADDR STATEMENT 

6839 ; ************************************* 

6840 ;* * 

6841 ;* Double precision subtract (.TSUB); * 

6842 ;* * 

6843 ;* JSB . TSUB * 

6844 ;* DEF DIFFERENCE * 

6845 ;* DEF MINUEND * 

6846 ;* DEF SUBTRAHEND * 

6847 ;* * 
6 848 ; ***************************************************************** 

6849 ; 

6850 ; Load 2nd operand into S4-S7, 1st operand into S0-S3 

6851 and negate S4-S7. 

6852 ; 

6853 .TSUB: CALL DBLARG1 4 AM2901 , PC , NOP , ADD , ZB 

6854 / 4 CARRYH ; 

6855 / 4 LDMAR ; 

6856 00565 / 4 CREAD ; GET ARG2 INTO (S0.S1.S2.S 

6857 CALL DBLARG2 4 AM2901 , PC , NOP , PASS , ZB 

6858 / & LDMAR ; 

6859 00566 / & CREAD ; GET ARG1 INTO (S4,S5,S6,S 

6860 CALL DNEGATE & AM2901 , S3 , RAMF , SUBS , ZB 

6861 / & CARRYH ; 

6862 00567 / & LODUSR ; NEGATE FIRST ARG 

6863 JP TADDO & AM2901 , S4 , NOP , ADD , ZB 

6864 / 4 CARRYL ; JUMP TO ADD CODE 

6865 / 4 LODMSR ; 

6866 00568 / 4 ENBLC ; 

6867 ; 

6868 ; Routine to negate ( SO , SI , S2 , S3 ) with exp in MP. 

6869 ; ENTER DNEGATE WITH S3 ALREADY NEGATED AND uC SET APPROPRIATEL 

6870 ; 

6871 DNEGATE: CONT 4 AM2901 , S2 , RAMF , SUBS , ZB 

6872 00569 / 4 CARRYUC ; 

6873 CONT 4 AM2901 , SI , RAMF , SUBS , ZB 

6874 0056A / 4 CARRYUC ; 

6875 CONT 4 AM2901 , SO , RAMF , SUBS , ZB 

6876 0056B / 4 CARRYUC ; 

6877 CJP DNEGATE1 4 AM2901 SO , SO , NOP , ADD , AB 

6878 / 4 CARRYL ; 

6879 0056C / 4 CONDUSR NOVR ; 

6880 CONT 4 AM2901 , SO , SRAMR , PASS , ZB 

6881 0056D / 4 SHIFT B#0000 ; 

6882 RET 4 AM2901 , MP , RAMF , ADD , ZB 

6883 0056E / 4 CARRYH ; 

6884 DNEGATE1 : CRET 4 AM2901 , SO , NOP , PASS , ZB 

6885 0056F / 4 CONDUSR OVR ; 

6886 CRET 4 AM2901 , SO , SRAML , PASS , ZB 

6887 / 4 SHIFT B#0000 ; 

6888 00570 / 4 CONDUSR Z ; Return if zero. 

6889 RET 4 AM2901 ,MP , RAMF , SUBR , ZB 

6890 00571 / 4 CARRYH ; 
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6892 
6893 
6894 
6895 
6896 
6897 
6898 
6899 
6900 
6901 
6902 
6903 
6904 
6905 
6906 
6907 
6908 
6909 
6910 
6911 
6912 
6913 
6914 
6915 
6916 
6917 
6918 
6919 
6920 
6921 
6922 
6923 
6924 
6925 
6926 
6927 
6928 
6929 
6930 
6931 
6932 
6933 
6934 
6935 
6936 
6937 
6938 
6939 
6940 
6941 
6942 
6943 
6944 



00572 



00573 



00574 
00575 

00576 
00577 
00578 



00579 
0057A 
0057B 



****************************************** 



Double precision add ( . TADD ) 

DEF .TADD 
DEF SUM 
DEF AUGEND 
DEF ADDEND 



* 
* 
* 
* 
* 
* 
* 
* 



***************************************************************** 

First, get the operands. 
CALL DBLARG1 



. TADD : 



/ 
/ 
/ 

TADDO : 
/ 

/ 
/ 

/ 

/ 



TADD1 
/ 



0057C 



TADD2 
/ 
/ 
/ 



CALL DBLARG2 



4 AM2901 , PC, NOP, PASS, ZB 
4 LDMAR ; 

4 CREAD ; GET ARG1 IN { SO , SI , S2 , S3 ) 

4 AM2901 ,PC,NOP,ADD,ZB 
4 CARRYH 
4 LDMAR 
& CREAD 



GET ARG2 IN ( S4 , S5 , S6 , S7 ) 



Check for either operand zero; Q := R12 - Q 
Clear Mc and leave clear until much later. 



CONT 

CJP 
CJP 



DPACK 
TADD1 



CALL SWPDBL 
JP DPACK 



4 AM2901 ,S4,N0P,ADD,ZB 

4 CARRYL ; 

4 LODMSR ; CLEAR MC 

4 ENBLC ; MZ=ARG2 

4 AM2901 PC, SO, NOP, PASS, ZB 

4 CONDMSR Z ; DONE IF ARG2=0 ; uZ=ARG2 

4 AM2901 MP , , QREG , SUBS , AQ 

4 CARRYH ; Q=EXPONENT DIFFERENCE 

4 CONDUSR NZ ; IF ARG2<>0,ADD 

4 AM2901 MP,MP,RAMF,SUBS,AQ 

4 CARRYH ; 

4 AM2901 PC,S5,NOP,ADD,AQ 

4 SPNOP 



If second exponent is larger, swap the operands 
CJP TADD2 



CALL SWPDBL 
CONT 



4 AM2901 , , NOP , ADD , AQ 
4 CONDUSR NSGN ; 
4 AM2901 MP,MP,RAMF,SUBS,AQ 
4 CARRYH ; 
4 AM2901 , , QREG, SUBS, ZQ 
4 CARRYH ; 



CHECK FOR MAGNITUDE OF SHIFT 



CONT 



4 AM2901 
4 CARRYL 
4 IMM H#0010 
4 LUSRCOND 



QREG , SUBR , DQ 

SUBTRACT 16 
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LINE ADDR STATEMENT 



6945 
6946 
6947 
6948 
6949 
6950 
6951 
6952 
6953 
6954 
6955 
6956 
6957 
6958 
6959 
6960 
6961 
6962 
6963 
6964 
6965 
6966 
6967 
6968 
6969 
6970 
6971 
6972 
6973 
6974 
6975 
6976 
6977 
6978 
6979 
6980 
6981 
6982 
6983 
6984 
6985 
6986 
6987 
6988 
6989 
6990 
6991 
6992 
6993 
6994 
6995 
6996 
6997 



0057D 

0057E 
0057F 

00580 
00581 

00582 
00583 

00584 
00585 
00586 
00587 
00588 
00589 
0058A 
0058B 

0058C 
0058D 



/ 
/ 



/ 
/ 

WRD2 : 
/ 

/ 

WRD1: 

/ 

/ 

TSHIFT; 

I 

/ 

I 

SHIFT1 : 

/ 

/ 



0058E 
0058F 



CJP TSHIFT 
CONT 

CJP WRD1 
CONT 

CJP WRD2 
CONT 

CJP DPACK 
CONT 

CONT 
CONT 

JP SHIFT1 
CALL SIGNEXT 
JP TSHIFT 
CONT 

CALL SIGNEXT 
CONT 

CJP DBLADD 



AM2901 ,,NOP,ADD,AQ 

CONDUSR SGN ; JP IF IN [0,15] 

AM2901 S6,S7,QREG,SUBR,DQ 

CARRYL ; 

I MM H#0010 ; SUBTRACT 16 

LUSRCOND ; 

AM2901 S6,S7,RAMF,PASS,ZA 

CONDUSR SGN ; JP IF IN [16,31] 

AM2901 S5,S7,QREG,SUBR,DQ 

CARRYL ; 

I MM H#0010 ; SUBTRACT 16 

LUSRCOND ; 

AM2901 S5,S7,RAMF,PASS,ZA 

CONDUSR SGN ; JP IF IN [32,47] 

AM2901 S4 , S7 , NOP , SUBR ,DQ 

CARRYL ; 

I MM H#0009 ; SUBTRACT 9 

LUSRCOND ; 

AM2901 S4,S7,RAMF,PASS,ZA 



CONDUSR NSGN 



IF >56, SWAMP 



AM2901 S4,S4,RAMF,SUBR,AB 
CONDUSR SGN ; 



CARRYEXT 



SIGN EXTEND IN S4 



AM2901 S4,S6,RAMF,PASS,ZA 



SPNOP 



SHIFT 3 WORDS 



AM2901 S4 , S5 , RAMF , PASS , ZA 

SPNOP ; AND SIGN EXTEND 

AM2901 ,, NOP, PASS, ZQ 

LODUSR ; USR = Q STATUS 

AM2901 S4.S6, RAMF, PASS, ZA 

LODUSR ; SHIFT 2 WORDS 

AM2901 S4.S5, RAMF, PASS, ZA 

SPNOP ; AND SIGN EXTEND 

AM2901 S5.S6, RAMF, PASS, ZA 

SPNOP ; SHIFT ONE WORD 

AM2901 S4.S5, RAMF, PASS, ZA 

; AND SIGN EXTEND 
QREG , ADD ,DQ 



RESTORE PROPER SHIFT COUN 



LODUSR 
AM2901 
CARRYL 
IMM H#0010 
LUSRCOND 
AM2901 S7, S3, QREG, SUBR, ZQ 
CARRYH ; DECREMENT Q 

CONDUSR Z ; IF Q WAS 0, NO MORE SHIFT 



If Q > 9, DO A LEFT SHIFT 



CONT 



CJP LSHIFT 



AM2901 ,, NOP, SUBR ,DQ 
IMM H#0009 
CARRYL 
LUSRCOND 



SUBTRACT 9 MORE 
[Q ALREADY DECREMENTED BY 



AM2901 S7.S4, NOP, PASS, ZB 



CONDUSR NSGN 



JP IF Q > 9 ;USR = S4 
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1 A PC QT 1 A O A BA/^CT 177 
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AUUK 


STATEMENT 


















Residual is a 


right shift . 




7AAA 

/ooo 








In two par t s : 


first loop for S4 positive; second 


7 A A 1 

f UU 1 








loop 


for S4 negative. Counter loaded from Q lsb. 


7 A A a 


















7 A A O 

/ 0 0 J 








^ TO 

L J r 


t Ann 1 1 


0 

Ot 


AM2901 S7 , S7 , RAMF , EX0R , AQ 


7 A A d 

/ U 04 


A A C A A 
00 5 3 0 


/ 






9 

Ot 


C0NDUSR SGN 


; JP IF NEG; PREPARE TO SWAP 


/ 0 05 












9 

Ot 


AM2901 S7, , QREG , EX0R , AQ 


7 A Ae 




/ 






9 


L0DMSR RESET 


; QREG = OLD S7 


7 A A 7 
f 00 / 


A A C A 1 

00591 


/ 






Ot 


ENBLC 


; CLEAR MC 


7 A A O 

7 00 8 








D 1 ICU 




9 

Ot 


AM2901 S7, ,N0P,EX0R,AQ 


7 A A A 
7009 


A A C A A 

00592 


/ 






9 

Ot 


SPETC LDCTY 


; LDCT WITH OLD Q (MINUS 1) 


7 A 1 A 
/ 0 10 








UUN f 




9 

Ot 


AM2901 ,S4,SRAMR,PASS,ZB 


7 A 1 1 

7011 


00593 


/ 






9 

Ot 


SHIFT B#1001 




7012 








mt 
UUN 1 




& 


AM2901 ,S5,SRAMR,PASS,ZB 


7 A 1 A 
/ 0 1 J 


A A C A A 

00594 


/ 






& 


SHIFT B#1001 




7 A 1 A 

IV 14 








D CO T 




& 


AM2901 ,S6,SRAMQR,PASS,ZB 


7 A 1 C 

7015 




/ 






& 


SHIFT B*0100 




7 A t c 

701b 




/ 






& 


LODMSR RESET 




7 A 1 7 

7017 


A A C A C 

00595 


/ 






& 


ENBLC 


CLEAR MC 


7 A 1 Q 

/ 0 1 o 








T D 

J r 


UD LMUU 


& 


AM2901 S7.S7, RAMF, PASS, ZQ 


7 A 1 A 

7019 


A A C A e 

00596 


/ 






& 


SPN0P 


RESTORE S7 


7 A A A 
/ 0/0 


















7 A 1 » 
/ 0Z 1 








n 1 9 n i 


snii T O T 


negative operand. 




7 A A 1 

702Z 


















/ OZ J 




TADD11: 


t/UN 1 




& 


AM2901 S7, , QREG.EX0R , AQ 


7 A A vl 

70Z4 




/ 






& 


LODMSR SET 


Q = OLD S7 


7 A A C 

70Z5 


A A C A 7 

00597 


/ 






& 


ENBLC 


SET CARRY FOR SIGN EXTEND 


7 A O C 

/ OZb 








Dl 1 C U 

rUbn 




& 


AM2901 S7,S4,N0P,EX0R,AQ 


7027 


00598 


/ 






& 


SPETC LDCTY 


LDCT WITH OLD Q 


7028 








LrUN I 




& 


AM2901 ,S4,SRAMR,PASS,ZB 


7 A A A 

7029 


A A C A A 

00599 


/ 






& 


SHIFT B#1001 




7030 








C0NT 




& 


AM2901 ,S5,SRAMR,PASS,ZB 


7031 


0059A 


/ 






& 


SHIFT B#1001 




7 A A A 

7032 








RFCT 




& 


AM2901 ,S6,SRAMQR,PASS,ZB 


7 AAA 

7033 




/ 








& 


SHIFT B#0100 




7 A A A 

7034 




/ 








& 


LODMSR SET 




7035 


0059B 


/ 








& 


ENBLC 


SET MSR FOR SIGN EXTEND 


7036 








JP 


DBLADD 


& 


AM2901 S7.S7, RAMF, PASS, ZQ 


7037 


0059C 


/ 








& 


SPN0P 


RESTORE S7 
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LINE ADDR STATEMENT 



7039 
7040 
7041 
7042 
7043 
7044 
7045 
7046 
7047 
7048 
7049 
7050 
7051 
7052 
7053 
7054 
7055 
7056 
7057 
7058 
7059 
7060 
7061 
7062 
7063 



0059D 
0059E 
0059F 
005A0 
005A1 
005A2 
005A3 
005A4 
005A5 
005A6 



Left shift: right shift one word, moving extra bits 
into Q , and then left shift the amount we overdid it 



LSHIFT: 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 



LDCT 

CONT 
CONT 
CONT 

CALL SIGNEXT 

CPUSH 

CONT 

CONT 

CONT 

RFCT 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



AM2901 
CARRYH 
IMMB H#OE 
SPETC LDCTY 



S7, NOP, SUBS, DQ 

THIS INSTRUCTION LOADS CO 



WITH 16-Q-l FOR THE RFCT 



AM2901 S6,S7,QREG,PASS,ZB 



LODMSR RESET 



Q = S7 



MSR 



CLEAR 



AM2901 S6,S7,RAMF,PASS,ZA 



SPNOP 



S7 = S6 



AM2901 S5,S6,RAMF,PASS,ZA 



SPNOP 



S6 



S5 



AM2901 S4,S5,RAMF,PASS,ZA 

LODUSR ; S5 = S4 ; SIGN EXTEND S4 

AM2901 ,S7,N0P,ADD,AQ 

CONDMSR SGN ; CPUSH NEVER LOADS COUNTER 

AM2901 ,S7,SRAMQL,PASS,ZB 

SHIFT B#1100 ; 

AM2901 ,S6,SRAML,PASS,ZB 

SHIFT BH1001 

AM2901 ,S5,SRAML,PASS,ZB 
SHIFT B#1001 ; 
AM2901 S7,S4,SRAML,PASS,ZB 
SHIFT B#1001 
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LINE ADDR STATEMENT 



7065 
7066 
7067 
7068 
7069 
7070 
7071 
7072 
7073 
7074 
7075 
7076 
7077 
7078 
7079 
7080 
7081 
7082 
7083 
7084 
7085 
7086 
7087 
7088 
7089 
7090 
7091 
7092 
7093 
7094 
7095 
7096 



005A7 
005A8 
005A9 
005AA 
005AB 



005AC 
005AD 
005AE 
005AF 
005B0 
005B1 



DBLADD: 

/ 

/ 

/ 

/ 

/ 

/ 



Second operand now aligned. Add the operands. 

CONT 4 AM2901 S7 , S3 , RAMF , ADD , AB 

4 CARRYL ; 

4 LODUSR ; 
CONT 4 AM2901 S6 , S2 , RAMF , ADD , AB 

4 CARRYUC ; PROPAGATE CARRY 

CONT 4 AM2901 S5 , SI , RAMF , ADD , AB 

4 CARRYUC ; PROPAGATE CARRY 

CONT 4 AM2901 S4 , SO , RAMF , ADD , AB 

4 CARRYUC ; PROPAGATE CARRY 

CJP DNORM 4 AM2901 ,,NOP,ADD,AQ 

4 CONDUSR NOVR , CHECK FOR OVERFLOW 

Overflow in addition. Right shift and bump exponent. 
Bit shifted into sign is complement of sign; it comes 
from adding SO to itself 4 loading carry inverted. 



DFIXOFL: CONT 

/ 
/ 
/ 



CONT 
CONT 
CONT 
CONT 
JP 



DROUND 



4 AM2901 SO, SO, NOP, ADD, AB 
4 CARRYL 

4 LODMSR CI ; 
4 ENBLC 

4 AM2901 ,SO,SRAMR,PASS,ZB 

4 SHIFT B#1001 

4 AM2901 ,S1,SRAMR,PASS,ZB 

4 SHIFT BftlOOl 

4 AM2901 ,S2,SRAMR,PASS,ZB 

4 SHIFT B#1001 

4 AM2901 ,S3,SRAMR,PASS,ZB 

4 SHIFT B#1001 

4 AM2901 , MP, RAMF, ADD, ZB 

4 CARRYH ; 
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LINE ADDR STATEMENT 



7098 
7099 
7100 
7101 
7102 
7103 
7104 
7105 
7106 
7107 
7108 
7109 
7110 
7111 
7112 
7113 
7114 
7115 
7116 
7117 
7118 
7119 
7120 
7121 
7122 
7123 
7124 
7125 
7126 
7127 
7128 
7129 
7130 



Normalize result. First, by words 



005B2 
005B3 
005B4 



005B5 
005B6 
005B7 
005B8 



005B9 

005BA 
005BB 
005BC 



DNORM: 

I 

/ 

ON0RM1 : 
/ 

/ 



DN0RM2 ; 
/ 

/ 
/ 

/ 

/ 



LDCT DNCOUNT 



CJP 
CJP 



DN0RM8 
DN0RM2 



& AM2901 S0,S4,RAMF,0R,ZA 

& CARRYH ; 

& LODUSR ; 

4 AM2901 SO,S1,NOP,EXOR,AB 

& CONDUSR UGT ; IF NOT ZERO OR ONES 

& AM2901 S0,S2,NOP,EXOR,AB 

& CONDUSR Z ; 



Normalize one full word; decrement exponent by 16. 



CONT 

CONT 
CONT 

JP DN0RM7 



& AM2901 MP , MP , RAMF , SUBR , DA 

& CARRYL ; 

& I MM H#0010 ; 

& AM2901 SI, SO, RAMF, PASS, ZA 

& SPNOP ; 

& AM2901 S2, SI, RAMF, PASS, ZA 

4 SPNOP ; 

& AM2901 S3, S2, RAMF, PASS, ZA 

& SPNOP ; 



Normalize two full words. Decrement exponent by 32 
CJP DNORM3 
CONT 



CONT 

JP DNORM6 



& 
& 
& 
& 
& 
& 
& 
& 
& 



AM2901 S0,S3,NOP,EXOR,AB 
CONDUSR Z ; 
AM2901 MP, MP, RAMF, SUBR, DA 
CARRYL ; 
IMM H#0020 ; 
AM2901 S2, SO, RAMF, PASS, ZA 
SPNOP ; 
AM2901 S3, SI, RAMF, PASS, ZA 
SPNOP ; 
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LINE ADDR STATEMENT 



7132 
7133 
7134 
7135 
7136 
7137 
7138 
7139 
7140 
7141 
7142 
7143 
7144 
7145 
7146 
7147 
7148 
7149 
7150 
7151 
7152 
7153 
7154 
7155 
7156 
7157 
7158 
7159 
7160 
7161 
7162 
7163 
7164 
7165 
7166 
7167 
7168 
7169 



005BD 

005BE 
005BF 
005C0 
005C1 



005C2 



005C3 



005C4 
005C5 

005C6 
005C7 



DN0RM3 : 
/ 

/ 
/ 

/ 

DN0RM6 : 
/ 

DN0RM7: 
/ 



DN0RM8 : 

/ 

I 

/ 

I 
I 
I 

/ 
/ 



Normalize three full words. Decrement exponent by 48. 
If fourth word = signs, must be zero. 

CJP DZERO & AM2901 S3 , SO , RAMF , PASS , ZA 

4 CONDUSR Z ; IF 0, JP 

CONT 4 AM2901 MP , MP , RAMF , SUBR , DA 

4 CARRYL ; 

4 IMM H#0030 ; 
CONT 4 AM2901 , SI , RAMF , AND , ZB 

4 SPNOP ; 
CONT 4 AM2901 , S2 , RAMF , AND , ZB 

4 SPNOP ; 
CONT & AM2901 , S3 , RAMF , AND , ZB 

4 SPNOP 

Check that did not discard all of sign bits; 
if no signs left, right shift one 4 fix sign. 



CONT 

CJP DFIXOFL 

Bit normalize. 
CONT 

CJP DNORM12 
CONT 



CJP 



DNORM13 



4 AM2901 S0,S4,NOP,EXOR,AB 

4 LODUSR ; 

4 AM2901 , , NOP , ADD , AQ 

4 CARRYL ; 

4 CONDUSR SGN ; 

Determine if small, large or no shift. 

4 AM2901 SO, S3, NOP, AND, DA 

4 IMM H#FF80 ; 

4 LUSRCOND ; 

4 AM2901 ,S3,QREG,PASS,ZB 

4 CONDUSR Z ; Large, mant . positive. 

4 AM2901 SO, , NOP, OR, DA 
4 CARRYH ; 
4 IMM H#007F ; 

4 LUSRCOND ; Carryout iff SO . ne . -1 

4 AM2901 SO, SO, NOP, ADD, AB 
4 CARRYL ; 

4 CONDUSR NC ; Large, mant. negative. 
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7171 

7172 

7173 

7174 

7175 

7176 

7177 

7178 

7179 

7180 

7181 

7182 

7183 

7184 

7185 

7186 

7187 

7188 

7189 

7190 

7191 

7192 

7193 

7194 

7195 

7196 

7197 

7198 

7199 

7200 

7201 

7202 

7203 

7204 

7205 

7206 

7207 

7208 

7209 

7210 

7211 

7212 

7213 



Small or no shift. Will shift one time too many 



005C8 

005C9 
005CA 

005CB 

005CC 
005CD 



005CE 
005CF 

005D0 
005D1 
005D2 

005D3 

005D4 



/ 
/ 

/ 
/ 



/ 
/ 

/ 

/ 

/ 
/ 

/ 
/ 



CJP DROUND 
PUSH DNCOUNT 

CONT 
CONT 

TWB 

CONT 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



AM2901 S3,S2,QREG,PASS,ZB 
CONDUSR OVR ; 
AM2901 S3 , S3 , R AMF , ADD , AB 
CARRYL 
LODMSR 
ENBLC 
AM2901 



SHIFT S3 LEFT 
MC = BIT SHIFTED OUT 



S1,SRAMQL,PASS,ZB 
SHIFT B#1100 ; SHIFT S6&S5 LEFT 
AM2901 SO , SO , RAMF , ADD , AB 

CARRYEXT ; SHIFT LEFT AND ADD MC BIT 

CONDMSR C ; LOAD USR WITH OVR STATUS 

AM2901 ,S3,SRAML,PASS,ZB 

CONDUSR OVR , TWB NEVER TAKES CTR=0 EXI 
SHIFT B#0000 

AM2901 ,S3,SRAMR,PASS,ZB 
SHIFT B#1100 ; UNSHIFT S3 



Undo the extra shift. If more than one normalization 
shift was required, the least 8 bits of the result 
must be zero, so don't waste time trying to round it. 
(Also adjust the exponent for the shift count.) 



CONT 

CONT 
CONT 

JSRP DNCOUNT 
CONT 

LDCT DPACK 
JRP DROUND 



& AM2901 SO, SO, NOP, ADD, AB 

& CARRYL ; 

& LODMSR CI 

& ENBLC ; 

& AM2901 ,SO,SRAMR,PASS,ZB 

& SHIFT B#1001 

& AM2901 ,S1,SRAMQR,PASS,ZB 

& SHIFT B#1100 ; 

& LODMSR RESET 

& AM2901 ,S2 , RAMF , PASS, ZQ 

& CONDMSR SGN ; Condition always false 

& AM2901 ,S3,SRAMR,PASS,ZB 

4 SHIFT B#1001 ; 

& AM2901 S7 ,S7 ,NOP,SUBR ,ZB 

& CARRYH 

& LODUSR ; 

& AM2901 S7,MP,RAMF,SUBR,AB 

& CARRYL ; 

& CONDUSR Z ; 
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7215 

7216 

7217 

7218 

7219 

7220 

7221 

7222 

7223 

7224 

7225 

7226 

7227 

7228 

7229 

7230 

7231 

7232 

7233 

7234 

7235 

7236 

7237 

7238 

7239 

7240 

7241 

7242 

7243 



005D5 



005D6 



005D7 



005D8 



005D9 



005DA 



/ 
/ 

/ 

/ 



Large shift. Shift right until sign shifted into R5 , 
then left shift one word. Since more than one bit of 
normalization is required, the least 7 bits of R7 
must be zero. Since 

the right shift will be by 8 bits or less, we can get 
by with a 4-word shift (and E); when the word shift 
is done, E is put in the last word MSB; the rest of 
the word is zero. Two cases are handled seperately; 
first, positive mantissa. 

The shift is circular; since the least 7 bits of R7 
are zero, correct sign bits will be shifted in on the 
second thru eighth shifts. 



DNORM12: PUSH DNCOUNT 

/ 
/ 

CONT 

/ 
/ 

CONT 

/ 

TWB 
CONT 

JP DNORM15 



& AM2901 ,S3,QREG,PASS,ZB 

& LODMSR RESET ; 

& ENBLC ; 

& AM2901 ,SO,SRAMR,PASS,ZB 

& SHIFT B#1001 ; 

& LODMSR ; 

& AM2901 ,S1,SRAMR,PASS,ZB 

& SHIFT B#1001 ; 

& AM2901 ,S2,SRAMQR,PASS,ZB 

& CONDMSR Z ; 

& SHIFT B#1100 

& AM2901 S1,S0,RAMF,PASS,ZA 

& SPNOP ; 

& AM2901 S2,S1,RAMF,PASS,ZA 

& SPNOP 
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7245 
7246 
7247 
7248 
7249 
7250 
7251 
7252 
7253 
7254 
7255 
7256 
7257 
7258 
7259 
7260 
7261 
7262 
7263 
7264 
7265 
7266 
7267 
7268 
7269 
7270 
7271 
7272 
7273 
7274 
7275 
7276 
7277 
7278 
7279 
7280 
7281 



005DB 
005DC 

005DD 

005DE 
005DF 
005E0 

005E1 
005E2 

005E3 
005E4 



DN0RM13 : 

/ 
/ 

/ 
/ 
/ 

DN0RM14: 

I 
I 
I 

/ 
I 

I 

/ 

DN0RM15 

/ 
/ 



Seperate loop for negative mansissa. 
This loop begins in the middle & exits prematurely, 
because the "ones" condition cannot be saved. (The 
counter was loaded at "DNORM" ) The shift is logical, 
with a "1" bit shifted in for a sign. This is so 
that when the rightmost sign is about to be shifted 
into R5 , the value in R4 will be -1, which is 
detected by absence of "overflow" in an OR operation. 



CALL DN0RM14 
CONT 

CONT 

TWB 

CONT 
CONT 
CONT 

JSRP 
CONT 

JP DPACK 



& AM2901 ,S3 ,QREG,PASS,ZB 
& LODMSR SET ; 
& ENBLC 

4 AM2901 ,S2,SRAMQR,PASS,ZB 
& SHIFT B#0100 
& LODMSR SET 
& ENBLC 

& AM2901 ,S0,SRAMR,OR,ZB 
& CARRYH 
& LODUSR 
& SHIFT B#1001 
& AM2901 , SI , SRAMR , PASS , ZB 
& SHIFT BttlOOl ; TWB COUNTER NEVER = 0 
& CONDUSR NOVR ; 
& AM2901 S1,S0,RAMF,PASS,ZA 
& SPNOP ; 
& AM2901 S2,S1,SRAMQR,PASS,ZA 
& SHIFT B#1100 
& AM2901 , S3, SRAMR, AND, ZB 
& SHIFT B#1001 ; 
& LODMSR RESET ; 
& AM2901 ,S2,RAMF,PASS,ZQ 

4 CONDMSR SGN ; (Condition always false) 

& AM2901 MP , MP , R AMF , SUBR , DA 

& I MM H#0010 ; 

& CARRYL ; 

& AM2901 S7 , MP , RAMF , ADD , AB 

& CARRYH ; 
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7283 

7284 

7285 

7286 

7287 

7288 

7289 

7290 

7291 

7292 

7293 

7294 

7295 

7296 

7297 

7298 

7299 

7300 

7301 

7302 

7303 

7304 

7305 

7306 

7307 

7308 

7309 

7310 

7311 

7312 



Round mantissa: add 200B if +, 177B if 



005E5 

005E6 
005E7 
005E8 
005E9 



005EA 
005EB 
005EC 
005ED 
005EE 
005EF 



DROUND : 

/ 
/ 

/ 
/ 

/ 

/ 

/ 



/ 
/ 

/ 

/ 

DROUND 1 : 

/ 

/ 
/ 



CONT 

CONT 

CONT 
CONT 
CONT 



4 AM2901 SO , SO , NOP , ADD , AB 

4 CARRYL ; 

4 LODUSRCI ; 

4 AM2901 S3 , S3 , RAMF , ADD ,DA 

4 IMM H#007F ; 

4 CARYUCOND ; Causes CARRYUC 

& AM2901 ,S2, RAMF, ADD, ZB 

4 CARRYUC ; 

4 AM2901 , SI, RAMF, ADD, ZB 

4 CARRYUC ; 

4 AM2901 , SO, RAMF, ADD, ZB 

4 CARRYUC ; 



Handle overflow 4 neg unnormalized after rounding 



CJP DR0UND1 



CONT 

JP 

CJP 

CONT 

CONT 



DPACK 
DPACK 



4 AM2901 SO, SO, NOP, ADD, AB 

4 CARRYL ; 

4 CONDUSR NOVR ; 

4 AM2901 ,S0,SRAMR,PASS,ZB 

4 SHIFT B#0000 ; 

4 AM2901 , MP, RAMF, ADD, ZB 

4 CARRYH ; 

4 AM2901 , , NOP , ADD , AQ 

4 CONDUSR OVR ; 

4 AM2901 ,S0,SRAML,PASS,ZB 

4 SHIFT B#0000 ; 

4 AM2901 ,MP,RAMF,SUBR,ZB 

4 CARRYH 
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7314 ; Check for overt 

7315 ; See single prec 

7316 ; At end, set E=0 

7317 ; 

7318 DPACK: CONT 

7319 / 

7320 005F0 / 

7321 DPACK1: CONT 

7322 005F1 / 

7323 CONT 

7324 / 

7325 005F2 / 

7326 CONT 

7327 005F3 / 

7328 CONT 

7329 / 

7330 005F4 / 

7331 CJP DOFLUFL 

7332 005F5 / 

7333 CONT 

7334 005F6 / 

7335 CONT 

7336 / 

7337 005F7 / 
7338 

7339 ; Store result . 

7340 ; 

7341 DSTORE: CALL INDRES 

7342 / 

7343 / 

7344 / 

7345 / 

7346 005F8 / 

7347 DSTORE1: CALL INCQ 

7348 / 

7349 005F9 / 

7350 CALL INCQ 

7351 / 

7352 005FA / 

7353 CALL INCQ 

7354 / 

7355 005FB / 

7356 CONT 

7357 / 

7358 005FC / 

7359 ; 

7360 ; Exit ; next inst 

7361 ; 

7362 JZ 

7363 / 

7364 / 

7365 005FD / 



low and underflow, and pack exponent, 
ision microcode for algorithm 
which will be put in 0. 

& AM2901 PC , S5 , RAMF , ADD , DA 
& CARRYL ; S5 = NEXT INST 

& I MM H«0002 

& AM2901 MP, S4, RAMF, AND, DA 
& IMM H#0080 ; 
& AM2901 MP , S4 , RAMF , ADD , AB 
& CARRYL ; 
& LODUSR ; 
& AM2901 S4, S4, RAMF .ADD, AB 
& CARRYUC ; 
& AM2901 S4, , NOP, AND, DA 
& IMM H#FF0O ; 
& LUSRCOND ; 
& AM2901 S3, MP, NOP, PASS, ZB 
& CONDUSR NZ ; 
& AM2901 S3, S3, RAMF, AND, DA 
& IMM H#FF00 ; 
& AM2901 S4,S3,RAMF,OR,AB 
& LODMSR RESET ; 
& ENBLC ; 

(First, restore E in case interrupted.) 

& AM2901 ,PC,NOP,SUBR,ZB 
& CARRYH ; 
& LODMSR SWAPEO ; 
& ENBLC & ENBLO ; SWAP E&O 
& LDMAR ; 
& CREAD ; READ DEF 

& AM2901 SO, TAB, NOP, PASS, ZA 
4 LDMDOR ; 

& DWRITE ; WRITE FIRST WORD OF RESUL 

& AM2901 SI , TAB, NOP, PASS, ZA 
& LDMDOR ; 

& DWRITE ; WRITE SECOND WORD 

& AM2901 S2, TAB, NOP, PASS, ZA 
& LDMDOR ; 

& DWRITE ; WRITE THIRD WORD 

& AM2901 S3, TAB, NOP, PASS, ZA 
& LDMDOR ; 
& DWRITE ; WRITE 4TH WORD 

ruction is at S5 . 

& AM2901 S5,PC,RAMA,ADD,ZA 
& CARRYH ; 
& LDMAR ; 
& IFETCH ; 
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7367 
7368 
7369 
7370 
7371 
7372 
7373 
7374 
7375 
7376 
7377 
7378 
7379 
7380 
7381 
7382 
7383 
7384 
7385 
7386 
7387 
7388 
7389 
7390 
7391 
7392 
7393 
7394 
7395 
7396 
7397 
7398 
7399 
7400 
7401 
7402 
7403 
7404 
7405 
7406 
7407 



Exponent correction table. Before a normalize loop, the 
counter is loaded with the address of "DCOUNT"; the counter 
is decremented within the loop. After the loop, a JSRP is 
used to call the appropriate line of the table below, which 
sets S7 to the number of loops executed, minus one. 



005FE 
005FF 
00600 
00601 
00602 
00603 
00604 
00605 
00606 
00607 
00608 
00609 
0060A 
0060B 
0060C 
0060D 



RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 



/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

DNCOUNT2: RET 

/ 

DNCOUNT1: EQU DNCOUNT2+1 
DNCOUNT: EQU DNC0UNT2+2 



4 AM2901 S7.S7 
4 I MM H#0010 
4 AM2901 S7.S7 
4 IMM H#OO0F 
4 AM2901 S7,S7 
4 IMM H«000E 
4 AM2901 S7.S7 
4 IMM H#U00D 
4 AM2901 S7.S7 
4 IMM HftOOOC 
4 AM2901 S7.S7 
4 IMM HftOOOB 
4 AM2901 S7.S7 
4 IMM HttOOOA 
4 AM2901 S7.S7 
4 IMM H#0009 
4 AM2901 S7.S7 
4 IMM H#0008 
4 AM2901 S7.S7, 
4 IMM H#0007 
4 AM2901 S7.S7, 
4 IMM H#0006 
4 AM2901 S7.S7, 
4 IMM H#0005 
4 AM2901 S7.S7, 
4 IMM H#0004 
4 AM2901 S7.S7, 
4 IMM H#0003 
4 AM2901 S7,S7, 
4 IMM H#0002 
4 AM2901 S7.S7, 
4 IMM H#0001 



,RAMF,PASS,DZ 
,RAMF,PASS,DZ 
,RAMF,PASS,DZ 
,RAMF,PASS,DZ 
,RAMF,PASS,DZ 
,RAMF,PASS,DZ 
,RAMF,PASS,DZ 
,RAMF,PASS,DZ 
,RAMF,PASS,DZ 
,RAMF,PASS,DZ 
.RAMF.PASS.DZ 
, RAMF.PASS.DZ 
,RAMF,PASS,DZ 
RAMF.PASS.DZ 
RAMF.PASS.DZ 
RAMF.PASS.DZ 



D-182 



A600 + BASESET MICROCODE 6/15/83 ** [&LBRB1] 1:35 PM TUE . . 13 SEPT, 1983 PAGE 188 

LINE ADDR STATEMENT 



7409 

7410 

7411 

7412 

7413 

7414 

7415 

7416 

7417 

7418 

7419 

7420 

7421 

7422 

7423 

7424 

7425 

7426 

7427 

7428 

7429 

7430 

7431 

7432 

7433 

7434 

7435 

7436 

7437 

7438 



O060E 
0060F 
00610 
00611 

00612 



00613 
00614 
00615 
00616 

00617 



DZERO 

/ 

/ 

/ 

/ 

/ 

/ 
/ 



DOFLUFL: 
I 

/ 

DOFL: 
/ 



Result =0, SI 
CONT 

CONT 
CONT 
CONT 

JP DSTORE 



= PC + 2 for exit address. 

& AM2901 PC , S5 , R AMF , ADD , DA 
& CARRYL 
& I MM H#0002 

& AM2901 , SO , RAMF , AND , ZB 
& SPNOP 

& AM2901 , SI , RAMF , AND , ZB 
& SPNOP 

& AM2901 ,S2 , RAMF , AND, ZB 
& SPNOP 

& AM2901 , S3, RAMF, AND, ZB 
& LODMSR RESET 
& ENBLC 



Handle double precision overflow and underflow. 
CJP DOFL 
CONT 



CONT 
CONT 
JP 



DSTORE 



/ 
/ 
/ 



& AM2901 SI , SI , RAMF , EXNOR , AB 
& CONDUSR NSGN 
& AM2901 SI , SI , RAMF , EXOR , AB 
& SPNOP ; 
& AM2901 S1,S0,SRAMR,PASS,ZA 
& SHIFT B#0000 ; 
& AM2901 S1,S3,SRAML,PASS,ZA 
& SHIFT B#0000 ; 
& AM2901 SI, S2, RAMF, PASS, ZA 
& LODMSR SET ; 
& ENBLC ; 
& LDMAR 
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7440 

7441 

7442 

7443 

7444 

7445 

7446 

7447 

7448 

7449 

7450 

7451 

7452 

7453 

7454 

7455 

7456 

7457 

7458 

7459 

7460 

7461 

7462 

7463 

7464 

7465 

7466 

7467 

7468 

7469 

7470 

7471 

7472 

7473 

7474 

7475 

7476 



Routine to set S4 to 0 or -1 depending on uN, 
which must be set in the same line as the call 



00618 
00619 



0061A 

0061B 

0061C 

0061D 

0061E 

0061F 

00620 

00621 

00622 

00623 

00624 

00625 



SIGNEXT: RET 

/ 

/ 



SWPDBL: 
/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 



4 AM2901 S4,S4,RAMF,SUBR,AB 
4 CARRYEXT ; 
4 C0NDUSR SGN 



FILLER 



Routine to swap (SO , SI , S2 , S3 ) with (S4 , S5 , S6 , S7 ) 
No other registers are affected. 



CONT 

CONT 

CONT 

CONT 

CONT 

CONT 

CONT 

CONT 

CONT 

CONT 

CONT 

RET 



4 AM2901 S0,S4,RAMF,EXOR,AB 
4 SPNOP 

4 AM2901 S4,S0,RAMF,EX0R,AB 
& SPNOP ; 
4 AM2901 S0,S4,RAMF,EXOR,AB 
4 SPNOP 

4 AM2901 Sl,S5,RAMF,EXOR,AB 

4 SPNOP ; 

4 AM2901 S5,S1,RAMF,EX0R,AB 

4 SPNOP ; 

4 AM2901 Sl,S5,RAMF,EXOR,AB 

4 SPNOP ; 

4 AM2901 S2,S6,RAMF,EXOR,AB 

4 SPNOP ; 

4 AM2901 S6,S2,RAMF,EXOR,AB 

4 SPNOP ; 

4 AM2901 S2 , S6 , RAMF , EXOR , AB 

4 SPNOP 

4 AM2901 S3, S7, RAMF, EXOR, AB 

4 SPNOP ; 

4 AM2901 S7, S3, RAMF, EXOR, AB 

4 SPNOP ; 

4 AM2901 S3, S7, RAMF, EXOR, AB 

4 SPNOP 
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7478 
7479 
7480 
7481 
7482 
7483 
7484 
7485 
7486 
7487 
7488 
7489 
7490 
7491 
7492 
7493 
7494 
7495 
7496 
7497 
7498 
7499 



7516 
7517 
7518 
7519 
7520 
7521 
7522 
7523 
7524 
7525 
7526 



00626 



00627 



Double precision multiply (.TMPY) 

JSB . TMPY 
DEF PRODUCT 
DEF MULTIPLICAND 
DEF MULTIPLIER 



* 
* 
* 
* 
* 
* 
* 



Get the operands . 



TMPY: 



CALL DBLARG1 



CALL DBLARG2 



4 AM2901 , PC, NOP, PASS, ZB 
4 LDMAR ; 

4 CREAD ; GET ARG1 IN ( SO , SI , S2 , S3 ) 

4 AM2901 ,PC,NOP,ADD,ZB 
& CARRYH ; 
4 LDMAR ; 

4 CREAD ; GET ARG2 IN ( S4 , S5 , S6 , S7 ) 



Put result exponent and sign in MP; take abs values 



7500 






CHECK 


FOR ARG1 


= 0 


OR ARG2 = 0 


7501 














7502 






CONT 




4 


AM2901 MP , MP , RAMF , ADD , AQ 


7503 


00628 


/ 






4 


CARRYH ; 


7504 






CONT 




4 


AM2901 , SO, NOP, PASS, ZB 


7505 


00629 


/ 






4 


LODMSR ; 


7506 






CCALL 


DNEGATE4 


4 


AM2901 S0,S4,QREG,EX0R,AB 


7507 


0062A 


/ 






4 


CONDMSR SGN ; 


7508 






CJP 


DZERO 


4 


AM2901 ,S4, NOP, PASS, ZB 


7509 


0062B 


/ 






4 


CONDMSR Z ; 


7510 






CJP 


DZERO 


4 


AM2901 , S4, NOP, PASS, ZB 


7511 


0062C 


/ 






4 


CONDUSR Z ; 


7512 






CCALL 


DNEGATE8 


4 


AM2901 S7,S7,N0P,ADD,AQ 


7513 


0062D 


/ 






4 


CONDUSR SGN ; 


7514 






CONT 




4 


AM2901 S7,MP,SRAMQL,PASS,ZB 


7515 


0062E 


/ 






4 


SHIFT B#0110 ; 



Perform the unsigned multiply. Register contents 
are documented by noting which register(s) contain 
which portions of the operands and result. 
The 'S' register name prefix is dropped. 



Initially : 

opl = (0,1,2,3) op2 



(4,5,6,7) res 



) 



The operands are referred to as x and y, and the 
individual words are referred to as xl-x4 and yl-y4. 
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7528 
7529 
7530 
7531 
7532 
7533 
7534 
7535 
7536 
7537 
7538 
7539 
7540 
7541 
7542 
7543 
7544 
7545 
7546 
7547 
7548 
7549 
7550 
7551 
7552 
7553 
7554 
7555 
7556 
7557 
7558 
7559 
7560 
7561 
7562 
7563 
7564 
7565 
7566 
7567 
7568 
7569 



0062F 
00630 
00631 

00632 

00633 



00634 
00635 
00636 



00637 
00638 
00639 

0063A 

0063B 



/ 

/ 

/ 

/ 
/ 

/ 
/ 



(0,1,2,3) 
xl * y4 
CONT 
CONT 

LDCT H#007 
CPUSH 

RFCT 

(0,1,2,3) 
CONT 
CONT 
CONT 

(4,1,2,3) 
x4 * yl 
CONT 
CONT 

LDCT H#007 
CPUSH 

RFCT 



(4,5,6,7) 



.-.-) 



& AM2901 S7.S7, RAMA, PASS, DZ 

& SPRD RL4 ; 

& AM2901 S7.S7, RAMA, PASS, DZ 

& SPRD RL4 ; 

& AM2901 ,S7,QREG,PASS,ZB 

& LODMSR RESET ; MSR = 0 

& AM2901 , S7 , SRAMQR , AND , ZB 

& CONDMSR SGN ; Always fails. 

& SHIFT B#0110 ; S7 = 0; SET QOBUF 

& AM2901 MPY8 , S7 , SRAMQR , ADD , AB 

& CARRYL ; 

& SHIFT B#1011 ; 



(4,5,6,-) 



(-. 



,7) 



& AM2901 S0,S4,RAMF,EXOR,AB 

4 SPNOP ; 

& AM2901 S4,S0,RAMF,EX0R,AB 

& SPNOP ; 

& AM2901 S0,S4,RAMF,EXOR,AB 

& SPNOP ; 



(0,5,6,-) 



(-, 



,7) 



& AM2901 S3, S3, RAMA, PASS, DZ 

& SPRD RL4 ; 

& AM2901 S3, S3, RAMA, PASS, DZ 

& SPRD RL4 ; 

& AM2901 ,S3,QREG,PASS,ZB 

& LODMSR RESET ; MSR = 0 

& AM2901 , S3, SRAMQR, AND, ZB 

& CONDMSR SGN ; Always fails. 

& SHIFT B#0110 ; S3 = 0 ; SET QOBUF 

& AM2901 MPY8, S3, SRAMQR, ADD, AB 

& CARRYL ; 

& SHIFT B#1011 ; 
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LINE ADDR STATEMENT 



7571 
7572 
7573 
7574 
7575 
7576 
7577 
7578 
7579 
7580 
7581 
7582 
7583 
7584 
7585 
7586 
7587 
7588 
7589 
7590 
7591 
7592 
7593 
7594 
7595 
7596 
7597 
7598 
7599 
7600 
7601 
7602 
7603 
7604 
7605 
7606 
7607 
7608 
7609 
7610 
7611 
7612 
7613 
7614 



(4,1,2,-) 
CONT 



(0,5,6,-) 



(■ 



,-,3+7) 



0063C 



0063D 



0063E 



0063F 



00640 
00641 
00642 
00643 



00644 



00645 



00646 



/ 
/ 
/ 



4 AM2901 S7 , S3 , RAMF , ADD , AB 
4 CARRYL 
4 LODMSR 
& ENBLC 



(4,1,2,-) (0,5,6,-) 
x3 * yl + S3 
LDCT H#OOF 
CPUSH 



,Mc ,3) 



RFCT 

(4,1,2,-) 

CONT 

CONT 

CONT 

CONT 

(4,1,2,-) 
x3 * y2 
LDCT H#00F 
CPUSH 

RFCT 



4 AM2901 S3 , S2 , QREG , PASS , ZB 

4 LODMSR RESET ; MSR = 0 

4 AM2901 S3 , S3 , SRAMQR , ADD , AB 

4 CARRYL ; 

& CONDMSR SGN ; Always fails. 

4 SHIFT B#1110 ; SET QOBUF , SAVE S3 

4 AM2901 MPY8, S3, SRAMQR, ADD, AB 

4 CARRYL ; 

4 SHIFT B#1011 ; 

(0,5,6,-) (-,-,3+Mc,Q) 

4 AM2901 ,S7 , RAMF , PASS, ZQ 

4 SPNOP ; 

& AM2901 S0,S5,RAMF,EX0R,AB 

4 SPNOP ; 

4 AM2901 S5,S0,RAMF,EXOR,AB 

& SPNOP ; 

4 AM2901 S0,S5,RAMF,EXOR,AB 

4 SPNOP ; 

(5,0,6,-) (-,-,3+Mc,7) 



& AM2901 ,S2 , QREG, PASS, ZB 

4 LODMSR RESET ; MSR = 0 

& AM2901 ,S2, SRAMQR, AND, ZB 

& CONDMSR SGN ; Always fails. 

& SHIFT B#0110 ; S2 = 0 ; SET QOBUF 

4 AM2901 MPY8 ,S2 .SRAMQR , ADD, AB 

4 CARRYL ; 

4 SHIFT B#1011 ; 
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LINE ADDR STATEMENT 



7616 
7617 
7618 
7619 
7620 
7621 
7622 
7623 
7624 
7625 
7626 
7627 
7628 
7629 
7630 
7631 
7632 
7633 
7634 
7635 
7636 
7637 
7638 
7639 
7640 
7641 
7642 
7643 
7644 
7645 
7646 
7647 
7648 
7649 
7650 



00647 
00648 
00649 
0064A 
0064B 



0064C 



0064D 



0064E 



0064F 
00650 
00651 



/ 
/ 

/ 

/ 

/ 

/ 



(4,1,-,-) 
CONT 

CONT 
CONT 
CONT 
CONT 

(4,0,-,-) 
x2 * y3 
LDCT H#00F 
CPUSH 

RFCT 

(4,0,-,-) 
CONT 
CONT 
CONT 



(5,0,6,-) (-,-,3+Mc,7+2) 

& AM2901 S2 , S7 , RAMF , ADD , AB 

4 CARRYL ; 

& LODUSR 

4 AM2901 , S3, RAMF, ADD, ZB 

4 CARRYUC ; NEVER GENERATES CARRY ? 

4 AM2901 SO,S1,RAMF,EXOR,AB 

4 SPNOP ; 

4 AM2901 S1,SO,RAMF,EXOR,AB 

& SPNOP 

4 AM2901 SO,S1,RAMF,EXOR,AB 

4 SPNOP ; 

(5,1,6,-) (-,-,3+Mc,7) 



4 AM2901 ,S6,QREG,PASS,ZB 

4 LODMSR RESET ; MSR = 0 

4 AM2901 , S2 , SRAMQR , AND , ZB 

4 CONDMSR SGN ; Always fails. 

4 SHIFT B#0110 ; S2 = 0 ; SET QOBUF 

4 AM2901 MPY8.S2, SRAMQR, ADD, AB 

& CARRYL ; 

4 SHIFT B#1011 ; 



(5,1,6,-) 



(-,-,3+Mc,7+2) 



4 AM2901 S0,S4,RAMF,EXOR,AB 

4 SPNOP ; 

4 AM2901 S4,S0,RAMF,EXOR,AB 

4 SPNOP ; 

4 AM2901 SO , S4 , RAMF , EXOR , AB 

4 SPNOP 
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LINE ADDR STATEMENT 



7652 ; (0,4,-,-) 

7653 ; 

7654 ; xl * y3 + S2 

7655 ; 

7656 LDCT H#OOF 

7657 00652 / 

7658 CPUSH 

7659 / 

7660 / 

7661 00653 / 

7662 RFCT 

7663 / 

7664 00654 / 

7665 ; 

7666 ; (0,4,-,-) 

7667 ; 

7668 CONT 

7669 / 

7670 00655 / 

7671 CONT 

7672 00656 / 

7673 CONT 

7674 / 

7675 00657 / 

7676 ; 

7677 ; (0,4,-,-) 

7678 ; 

7679 ; xl * y2 + S2 

7680 ; 

7681 LDCT H#00F 

7682 / 

7683 00658 / 

7684 CPUSH 

7685 / 

7686 / 

7687 00659 / 

7688 RFCT 

7689 / 

7690 0065A / 

7691 ; 

7692 ; (0,4,-,-) 

7693 ; 

7694 CONT 

7695 0065B / 



(5,1,6,-) (-,-,3+Mc,7+2) 



& AM2901 ,S6 ,QREG,PASS,ZB 

& LODMSR RESET ; MSR = 0 

& AM2901 S2 , S2 , SRAMQR , ADD , AB 

& CARRYL ; 

& CONDMSR SGN ; Always fails. 

& SHIFT B#1110 ; ADD S2 ; SET QOBUF 

& AM2901 MPY8 ,S2 , SRAMQR , ADD, AB 

& CARRYL 

& SHIFT B#1011 

(5,1,-,-) (- , - ,3+2+Mc ,7+Q) 

& AM2901 S7 , S7 , RAMF , ADD , AQ 

& CARRYL ; 

& LODUSR ; 

& AM2901 S3 , S2 , RAMF , ADD , ZB 

& CARRYUC ; NEVER GENERATES CARRY 

& AM2901 S3 , S2 , RAMF , ADD , AB 

& CARRYEXT ; 

& CONDMSR C ; 

(5,1,-,-) (-,Uc,2,7) 



& AM2901 ,S1,QREG,PASS,ZB 

& LODMSR SWAPUM ; SET MC FROM PREV ADD 

& ENBLC ; QREG = SI 

& AM2901 S2.S2, SRAMQR, ADD, AB 

& CONDUSR SGN ; Always fails. 

& CARRYL ; (USR = OLD MSR = RESET) 

& SHIFT B#1110 ; ADD S2 ; SET QOBUF 

& AM2901 MPY8.S2, SRAMQR, ADD, AB 

& CARRYL ; 

& SHIFT B#1011 ; 

(5,1,-,-) (-,2+Mc,Q,7) 

& AM2901 , S3, RAMF, PASS, ZQ 

& SPNOP ; 
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LINE ADDR STATEMENT 



7697 
7698 
7699 
7700 
7701 
7702 
7703 
7704 
7705 
7706 
7707 
7708 
7709 
7710 
7711 
7712 
7713 
7714 
7715 
7716 
7717 
7718 
7719 
7720 
7721 
7722 
7723 
7724 
7725 
7726 
7727 
7728 
7729 
7730 
7731 
7732 
7733 
7734 
7735 
7736 
7737 



0065C 



0065D 



0065E 



0065F 



00660 



00661 



00662 



00663 



(0,4,-,-) 
xl * yl + S2 
LDCT H#OOF 
CPUSH 

RFCT 

(-,4,-,-) 
CONT 

CONT 



(5,1,-,-) 



(-,2+Mc ,3,7) 



Always fails . 
ADD S2; SET QOBUF 



& AM2901 ,S5,QREG,PASS,ZB 
& LODMSR RESET ; CLEAR MSR 
& AM2901 S2 , S2 , SRAMQR , ADD , AB 
& CARRYL 
& CONDMSR SGN 
4 SHIFT B#1110 
& AM2901 MPY8.S2, SRAMQR, ADD, AB 
& CARRYL ; 
& SHIFT B#1011 

(5,1,-,-) (2, Q+Mc ,3,7) 

& AM2901 , S6 , RAMF , ADD , ZQ 

& CARRYEXT ; ADD IN PREV MC 

& CONDMSR C 

& AM2901 S4, SO, RAMF, PASS, ZA 

& LODMSR SWAPUM ; 

& ENBLC ; LOAD MC FROM PREV LINE 



(-,0,-,-) (5,1,-,-) (2+Mc,6,3,7) 
x2 * y2 + S7 
LDCT H#00F 
CPUSH 



RFCT 

(-.0,-, 
CONT 



& AM2901 S7,S1,QREG,PASS,ZB 
& LODMSR RESET ; MSR = 0 
& AM2901 S7.S7, SRAMQR, ADD ,AB 
& CARRYL 
& CONDMSR SGN 
& SHIFT B#1110 
& AM2901 MPY8.S7, SRAMQR, ADD, AB 
& CARRYL ; 
& SHIFT B#1011 



Always fails. 
ADD S7; SET QOBUF 



(5, 



) 



(2+Mc, 6, 3+7, Q) 



00664 



& AM2901 ,S4, RAMF, PASS, ZQ 
& SPNOP 
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LINE ADDR STATEMENT 



7739 
7740 
7741 
7742 
7743 
7744 
7745 
7746 
7747 
7748 
7749 
7750 
7751 
7752 
7753 
7754 
7755 
7756 
7757 
7758 
7759 
7760 
7761 
7762 
7763 
7764 
7765 
7766 
7767 
7768 



00665 



00666 



00667 



00668 

00669 
0066A 
0066B 
0066C 
0066D 



/ 
/ 
/ 

/ 
/ 



(-.0,-.-) (5, 
x2 * yl + S7 
LDCT H#00F 
CPUSH 

RFCT 



(-,-,-,-) 
CONT 

CONT 

CONT 
CONT 
CONT 
CONT 



(2+Mc, 6, 3+7, 4) 



& AM2901 S7,S5,QREG,PASS,ZB 

& LODMSR RESET ; MSR = 0 

4 AM2901 S7 , S7 , SRAMQR , ADD , AB 

& CARRYL ; 

4 CONDMSR SGN ; Always fails. 

4 SHIFT B#1110 ; ADD S7 ; SET QOBUF 

4 AM2901 MPY8.S7, SRAMQR, ADD, AB 

4 CARRYL 

4 SHIFT B#1011 ; 



(-.-. 



) 



(2+Mc, 6+7, 3+Q, 4) 



4 AM2901 S2 , SO , RAMF , ADD , ZA 

4 CARRYEXT 

4 CONDMSR C ; 

4 AM2901 S3 , S2 , RAMF , ADD , AQ 

4 CARRYL ; 

4 LODUSR ; 

4 AM2901 S7.S6, RAMF, ADD, AB 

4 CARRYUC ; 

4 AM2901 S6,S0,RAMF,ADD,ZB 

4 CARRYUC ; 

4 AM2901 S6, SI, RAMF, PASS, ZA 

4 SPNOP 

4 AM2901 S4, S3, RAMF, PASS, ZA 
4 SPNOP ; 
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LINE ADDR STATEMENT 



7770 
7771 
7772 
7773 
7774 
7775 
7776 
7777 
7778 
7779 
7780 
7781 
7782 
7783 
7784 
7785 
7786 
7787 
7788 
7789 
7790 
7791 
7792 
7793 
7794 
7795 
7796 
7797 
7798 
7799 
7800 
7801 
7802 



0066E 
0066F 

00670 



00671 
00672 
00673 
00674 
00675 

00676 

00677 



(-, 



(-, 



,-) 



(0, 1, 2, 3) 



TMPYEXIT: 

/ 

/ 

/ 

/ 
/ 



/ 
/ 

TMPYEX1 ; 
/ 

/ 

/ 

/ 

/ 
/ 

TMPYEX2 : 

/ 

/ 



If operand signs differed, negate result. 
Also remove saved sign bit from MP. 



CONT 



LDCT DROUND 



CCALL DNEGATE4 



AM2901 , MP , SRAMQR , ADD , ZB 
CARRYL ; 
SHIFT B#1110 ; 



AM2901 

LODUSR 

AM2901 

CONDUSR 

CARRYH 



, NOP, PASS, ZQ 

MP , RAMF , ADD , ZB 
SGN ; 



Normalize. Zero to two shifts required. 



JP TMPYEX2 

CONT 
CONT 
CONT 
CONT 
CONT 

JRP TMPYEX1 



& AM2901 SO, SO, NOP, ADD, AB 
& CARRYL ; 
& LODUSR ; 
& AM2901 ,S3,SRAML,PASS,ZB 
& SHIFT BiOOOO 
& AM2901 ,S2,SRAML,PASS,ZB 
& SHIFT B1U001 ; 
4 AM2901 ,S1,SRAML,PASS,ZB 
& SHIFT B#1001 ; 
& AM2901 ,S0,SRAML,PASS,ZB 
& SHIFT B#1001 
& AM2901 SO, SO, NOP, ADD, AB 
& CARRYL 
4 LODUSR 

& AM2901 , MP, RAMF 
& CARRYH 
& CONDUSR NOVR 



SUBR.ZB 



Fail => DROUND 



D-192 



A600 + 
LINE 

7804 
7805 
7806 
7807 
7808 
7809 
7810 
7811 
7812 
7813 
7814 
7815 
7816 
7817 
7818 
7819 
7820 
7821 
7822 
7823 
7824 
7825 
7826 
7827 
7828 



BASESET 
ADDR 



MICROCODE 6/15/83 ** [&LBRB1] 
STATEMENT 



1:35 PM TUE . , 13 SEPT, 1983 PAGE 198 



00678 
00679 
0067A 
0067B 



0067C 
0067D 
0067E 
0067F 



Routine to negate ( SO , SI , S2 ,S3 ) ; 

no overflow correction or normalization done 



DNEGATE4: CONT 

/ 
/ 

/ 

/ 

/ 



CONT 
CONT 
RET 



& AM2901 , S3 , RAMF , SUBS , ZB 
& CARRYH 
& LODUSR 
& AM2901 , S2 , RAMF , SUBS , ZB 
& CARRYUC 
& AM2901 , SI, RAMF, SUBS, ZB 
& CARRYUC 

& AM2901 , SO, RAMF, SUBS, ZB 
& CARRYUC 



Routine to negate (S4 , S5 , S6 ,S7 ) ; 

no overflow correction or normalization done. 



DNEGATE8: CONT 

/ 
/ 

/ 

/ 

/ 



CONT 
CONT 
RET 



& AM2901 ,S7, RAMF, SUBS, ZB 
& CARRYH 
& LODUSR 

4 AM2901 ,S6 , RAMF , SUBS, ZB 
& CARRYUC 

& AM2901 ,S5, RAMF, SUBS, ZB 
& CARRYUC ; 
& AM2901 S7.S4, RAMF, SUBS, ZB 
& CARRYUC ; 
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LINE ADDR STATEMENT 



7830 

7831 

7832 

7833 

7834 

7835 

7836 

7837 

7838 

7839 

7840 

7841 

7842 

7843 

7844 

7845 

7846 

7847 

7848 

7849 

7850 

7851 

7852 

7853 

7854 

7855 

7856 

7857 

7858 

7859 

7860 

7861 

7862 

7863 

7864 

7865 



00680 



00681 



00682 



00683 



00684 



00685 



00686 



00687 



*********************************************************^ 

* * 

* Double precision divide (TDIV) * 

* * 

* JSB . TDIV * 

* DEF RESULT * 

* DEF ARG1 * 

* DEF ARG2 * 

* * 
************************************** 



/ 
/ 

/ 
/ 
/ 



/ 

/ 

/ 

/ 

/ 
/ 



Get t he ope rands 



TDIV: CALL DBLARG1 



CALL DBLARG2 



& AM2901 , PC, NOP, PASS, ZB 
& LDMAR ; 

4 CREAD ; GET ARG1 INTO (S0,S1,S2,S 

& AM2901 ,PC,NOP,ADD,ZB 
& CARRYH 

& LDMAR ; 

& CREAD ; GET ARG2 INTO (S4,S5,S6,S 



Put result exponent & sign in MP; take abs values. 

CONT & AM2901 MP , MP , RAMF , SUBS , AQ 

4 CARRYH 

CONT & AM2901 , S4 , NOP , PASS , ZB 

4 LODMSR 

CCALL DNEGATE8 & AM2901 SO , S4 , QREG , EXOR , AB 

& CONDMSR SGN ; 
CJP TDIV9 & AM2901 , SO , NOP , PASS , ZB 

& CONDMSR Z 
CCALL DNEGATE4 & AM2901 , MP , RAMF , ADD , ZB 

& CARRYH 

& CONDUSR SGN 

& AM2901 ,MP,SRAMQL,PASS,ZB 
& SHIFT B#0110 



CONT 
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7867 
7868 
7869 
7870 
7871 
7872 
7873 
7874 
7875 
7876 
7877 
7878 
7879 
7880 
7881 
7882 
7883 
7884 



00688 
00689 
0068A 
0068B 
0068C 
0068D 
0068E 
0068F 



Right shift both by one bit: avoid certain end cases 



CONT 
CONT 
CONT 
CONT 
CONT 
CONT 
CONT 
CONT 



& AM2901 ,SO,SRAMR 
& SHIFT B#0010 
& AM2901 , SI, SRAMR 
& SHIFT B#1001 ; 
& AM2901 ,S2,SRAMR 
& SHIFT B#1001 ; 
& AM2901 , S3 , SRAMR 
& SHIFT B#1001 ; 
& AM2901 ,S4, SRAMR 
& SHIFT B#0010 
& AM2901 ,S5, SRAMR 
& SHIFT B#1001 ; 
4 AM2901 ,S6, SRAMR 
& SHIFT B#1001 ; 
& AM2901 ,S7, SRAMR 
& SHIFT B#1001 ; 



,PASS,ZB 
,PASS,ZB 
,PASS,ZB 
, PASS.ZB 
,PASS,ZB 
,PASS,ZB 
, PASS.ZB 
.PASS.ZB 



D-195 



A600+ BASESET MICROCODE 6/15/83 ** [4LBRB1] 1:35 PM TUE . , 13 SEPT, 1983 PAGE 201 

LINE ADDR STATEMENT 



7886 
7887 
7888 
7889 
7 890 
7891 
7892 
7893 
7894 
7895 
7896 
7897 
7898 
7899 
7900 
7901 
7902 
7903 
7904 
7905 
7906 
7907 
7908 
7909 
7910 
7911 
7912 
7913 
7914 
7915 
7916 
7917 
7918 
7919 



00690 
00691 

00692 
00693 

00694 

00695 

00696 
00697 

00698 
00699 



/ 

/ 

/ 
/ 



/ 
/ 
/ 

/ 
/ 

/ 
/ 



First divide loop. Start with Mn = 0, Mc=0, CT=1. 
Exchange R4 and R7 so that first add/subtract of 
each loop can use DIV, so that the CJP can overlap 
the first operation of each loop. The two parts of 
the loop must be seperate because the SUBR operation 
complements carry-in, so the carry propagate for 
ADD and for SUBR are coded differently. 

CONT 4 AM2901 S3 , SO , QREG , PASS , ZB 

4 L0DUSR ; 
CJP DZERO 4 AM2901 S3 , SO , RAMF , PASS , ZA 

4 CONDUSR Z ; 
CONT 4 AM2901 , S3 , RAMF , PASS , ZQ 

4 LODMSR RESET ; 

4 ENBLC ; 
PUSH H#00F & AM2901 S7 ,, QREG , AND , ZQ 

4 CONDMSR C ; Set CCBUF 

CJP TDIV1 4 AM2901 S7 , DIV , SRAMQL , SUBR , AB 

4 CARRYL ; 

4 CONDMSR C ; 

4 SHIFT B#1100 ; 
CONT 4 AM2901 S6 , S2 , SRAML , SUBR , AB 

4 CARRYNUC ; 

4 SHIFT B#1001 
CONT 4 AM2901 S5 , SI , SRAML , SUBR , AB 

4 CARRYUC ; 

4 SHIFT B#1001 ; 
CONT 4 AM2901 SO , SO , NOP , SUBR , AB 

4 CARRYUC ; INVERT UC . 

RFCT 4 AM2901 S4 , S3 , SRAML , SUBR , AB 

4 UCDIVCND ; 

4 SHIFT B#1001 ; 
JP TDIV2 4 AM2901 S2 , S7 , RAMF , EXNOR , ZQ 

4 SPNOP 
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LINE ADDR STATEMENT 



7921 
7922 
7923 
7924 
7925 
7925 
7926 
7927 
7928 
7929 
7930 
7931 
7932 
7933 
7934 
7935 
7936 
7937 



Force LSB of $ to be 1100, matching shift code 



0069A 
0069B 



0069C 



0069D 



0069E 



0069F 



TDIVSKIP: SET 
DUP 



TDIV1 : 

/ 

/ 

/ 
/ 

/ 
/ 



H#FFC-$ 

TDIVSKIP AND H#00F 



FILLER 
FILLER 

CONT 



CONT 



RFCT 



CONT 



& AM2901 S6,S2,SRAML,ADD,AB 

& CARRYUC 

&. SHIFT B#1001 ; 

& AM2901 S5,S1,SRAML,ADD,AB 

& CARRYUC ; 

& SHIFT B*1001 

& AM2901 S4,S3,SRAML,ADD,AB 

& UCDIVCND ; 

& SHIFT B#1001 

& AM2901 S2,S7,RAMF,EXNOR,ZQ 
& SPNOP ; 
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LINE ADDR STATEMENT 



7939 




■ 


Second divide 


loop 




7940 




; 








7941 




TDIV2 : 


CONT 


& 


AM2901 S2,S0,RAMF,PASS,ZA 


7942 


006A0 


/ 




& 


SPNOP ; 


7943 






PUSH H#OOF 


& 


AM2901 S6 , , QREG.AND , ZQ 


7944 


006A1 


/ 




& 


CONDMSR C ; Set CC. 


7945 






CJP TDIV3 


& 


AM2901 S6,DIV,SRAMQL,SUBR,AB 


7946 




/ 




& 


CARRYL ; 


7947 




/ 




& 


CONDMSR C ; 


7948 


006A2 


/ 




& 


SHIFT B#U00 ; 


7949 






CONT 


& 


AM2901 S5,S1,SRAML,SUBR,AB 


7950 




/ 




& 


CARRYNUC ; 


7951 


006A3 


/ 




& 


SHIFT B#1001 ; 


7952 






RFCT 


& 


AM2901 S4,S3,SRAML,SUBR,AB 


7953 




/ 




& 


UCDIVCND ; 


7954 


006A4 


/ 




& 


SHIFT B#1001 


7955 






JP TDIV4 


& 


AM2901 S4,S6,RAMF,EXN0R,ZQ 


7956 


006A5 


/ 




& 


SPNOP 


7957 












7958 






Force LSB of $ 


to be 1100, matching shift code. 


7959 












7960 




TDIVSKIP: 


SET H#FFC-$ 






7961 






DUP TDIVSKIP_ 


_AND_ 


_H#00F 


7962 


006A6 




FILLER 






7962 


006A7 




FILLER 






7962 


006A8 




FILLER 






7962 


006A9 




FILLER 






7962 


006AA 




FILLER 






7962 


006AB 




FILLER 






7963 




; 








7964 




TDIV3 : 


CONT 


& 


AM2901 S5,S1,SRAML,ADD,AB 


7965 




/ 




& 


CARRYUC ; 


7966 


006AC 


/ 




& 


SHIFT B#1001 ; 


7967 






RFCT 


& 


AM2901 S4,S3,SRAML,ADD,AB 


7968 




/ 




& 


UCDIVCND ; 


7969 


006AD 


/ 




& 


SHIFT B#1001 ; 


7970 






JP TDIV4 


& 


AM2901 S4,S6,RAMF,EXN0R,ZQ 


7971 


006AE 


/ 




& 


SPNOP ; 
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LINE ADDR STATEMENT 



7973 








Third divide 


loop. Note that S2 is set to .not.S4 


7974 








which is used 


in subtract part to make the carry 


7975 








propagate end 


up on a carryuc, as it must. 


7976 












7977 




TDIV4: 


CONT 


4 AM2901 S4,S2,RAMF,EXN0R,ZA 


7978 


006AF 


/ 




4 SPNOP 


7979 








CONT 


4 AM2901 S1,S0,RAMF,PASS,ZA 


7980 


006B0 


/ 




4 SPNOP ; 


7981 








PUSH H#OOF 


4 AM2901 S5 , , QREG , AND , ZQ 


7982 


006B1 


/ 




& CONDMSR C ; Set CC . 


7983 








CJP TDIV5 


4 AM2901 S5,DIV,SRAMQL,SUBR,AB 


7984 




/ 




& CARRYL 


7985 




/ 




& CONDMSR C 


7986 


006B2 


/ 




4 SHIFT B#1100 ; 


7987 








RFCT 


4 AM2901 S2,S3,SRAML,ADD,AB 


7988 




/ 




4 UCDIVCND 


7989 


006B3 


/ 




4 SHIFT B#1001 ; 


7990 








JP TDIV6 


4 AM2901 S3,S2,RAMF,EXN0R,ZQ 


7991 


006B4 


/ 




4 SPNOP 


7992 












7993 








Force LSB of 


$ to be 1100, matching shift code. 


7994 












7995 




TDIVSKIP: 


SET H#FFC-$ 




7996 








DUP TDIVSKIP_AND_H#O0F 


7997 


006B5 






FILLER 




7997 


006B6 






FILLER 




7997 


006B7 






FILLER 




7997 


006B8 






FILLER 




7997 


006B9 






FILLER 




7997 


006BA 






FILLER 




7997 


006BB 






FILLER 




7998 












7999 




TDIV5 : 


RFCT 


4 AM2901 S4,S3,SRAML,ADD,AB 


8000 






/ 




4 UCDIVCND ; 


8001 


006BC 


/ 




4 SHIFT B#1001 ; 


8002 








JP TDIV6 


4 AM2901 S3,S2,RAMF,EXNOR,ZQ 


8003 


006BD 




/ 




4 SPNOP ; 
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LINE ADDR STATEMENT 



8005 
8006 
8007 
8008 
8009 
8010 
8011 
8012 
8013 
8014 
8015 
8016 
8017 
8018 
8019 
8020 
8021 
8022 
8023 
8024 
8025 
8026 
8027 
8028 
8029 
8030 
8031 



006BE 
006BF 

006C0 



006C1 
006C2 
006C3 



006C4 
006C5 



TDIV6 : 

/ 

/ 

/ 
/ 
/ 



/ 
/ 
/ 



TDIV9 
/ 

/ 



Fourth divide loop 
CONT 

PUSH H#00F 
RFCT 



& AM2901 S3 , SO , RAMF , PASS , ZA 
& SPNOP ; 
& AM2901 S4, , QREG , AND , ZQ 
& CONDMSR C ; Set up CC . 

& AM2901 S4 , DIV , SRAMQL , SUBR , AB 
& CARRYL ; 
& DIVCOND ; 
& SHIFT B#1100 ; 



Put result in (SO , SI , S2 , S3) & finish up. 
CONT 
CONT 



JP 



& AM2901 S7 , SO , RAMF , EXOR , DA 
& I MM H#8000 ; MSB was wrong. 

& AM2901 S6, SI, RAMF, PASS, ZA 
& SPNOP ; 
TMPYEXIT & AM2901 , S3 , RAMF , EXNOR , ZQ 
& SPNOP 



Divide by zero 
CONT 

JP DPACK 



Take ove rf low exit . 

& AM2901 , MP, RAMF, EXNOR, DZ 

& I MM H#F000 ; 

& AM2901 , , NOP.ADD.AQ 

& SPNOP 
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LINE ADDR STATEMENT 



8033 
8034 
8035 
8036 
8037 
8038 
8039 
8040 
8041 
8042 
8043 
8044 
8045 
8046 
8047 
8048 
8049 
8050 
8051 
8052 
8053 
8054 
8055 
8056 
8057 
8058 
8059 
8060 
8061 
8062 
8063 
8064 
8065 
8066 
8067 
8068 
8069 
8070 
8071 
8072 
8073 
8074 
8075 
8076 
8077 
8078 
8079 
8080 



;* 
;* 
;* 
;* 
;* 
;* 
I 

; +- 



VMA Microcode Routines 



VMA pointer: 



* 
* 
* 

I 

•+-+-+-+ 
I 

-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-♦-+-+-+-+-+-+-+-+-+-+-+-+-+ 

L is local reference bit. If L is set, then B register is * 
normal address. Simply resolve B for indirects and return * 



A Register 
-+-+-+-+-+-+-+-+-+-+-+-+-+• 



+-+-+-+-+- 



address in B. 

The PTE index is an index into a table of VMA pages. The 
page number of this table is contained in location 5. 

Access to the PTE table is by reading loc 5, loading 

contents into reg 31 of MAPX, then using 011111B as the 

upper bits of an address and the PTE Index as the lower 
bits . 

The PTE table entries can have three forms: 



; | L | 0 0 0 0 0| VMA Seg # | PTE Index 

; +- 

;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 



B Reg i s t e r 
+-+-+-+-+-+-+-+-+ 

I Log Page Offset 



15 10 9 0 

+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ 
Case A | VMA suit | Page offset | 
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ 

+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ 



Circumstance 
No rmal 



* 

* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 



-+-+-+-+-+-+-+-+-+-+-+-+-+ 



Case B | VMA suit |0 00000000 01 Last+1 VMA page* 



Case C 



+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ 
|1 1111 1|0 00000000 0| 
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ 



Fault 



* 

* 
* 
* 
* 

* 
* 
* 



When a PTE entry is case A, normal VMA operation proceeds. 
The PTE case B entry is indicated by a Page offset 
field of all zeros and a VMA suit of not all ones. 
In this case, the page is the last+1 VMA page which can 
be mapped, but not accessed. The PTE case C entry is 
indicated by a Page offset of all zeros and a VMA suit 
of all ones. In this case, the VMA page is not in memory 
and a page fault error is generated. 
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LINE ADDR STATEMENT 

8082 ; ******************#******#^^ 

8083 ;* * 

8084 ;* . LBPR - Load and map VMA pointer * 

8085 ;* * 

8086 ;* - Calling Sequence: * 

8087 ;* * 

8088 ;* JSB .LBPR * 

8089 ;* DEF POINTER * 

8090 ;* * 

8091 ;* - Resolves pointer, double loads A and B and performs . LBP * 

8092 ;* * 

80 94 ;«**** 

8095 .LBPR: CALL SAVNLD & AM2901 BR , TABQ , QREG , ADD , DZ 

8096 / & CARRYL ; 

8097 / 4 LODUSR ; 

8098 / 4 LDMAR ; 

8099 006C6 / 4 DREAD ; RESOLVE, READ POINTER; DL 

8100 JP LPX05 & AM2901 PC , S5 , RAMF , PASS , ZA 

8101 006C7 / 4 SPNOP ; SAVE PC 

8102 ;**«** 

8104 ;* * 

8105 ;* .LPX - Add offset to VMA pointer and map * 

8106 ;* * 

8107 ;* - Calling Sequence: * 

8108 ;* * 

8109 ;* DLD VMAPOINTER * 

8110 ;* JSB .LPX * 

8111 ;* DEF OFFSET * 

8112 ;* * 

8113 ;* - Resolve offset, double integer add to A & B, perform .LBP * 

8114 ;* * 

8116 ;***«* 

8117 .LPX: CALL SAVEAB & AM2901 BR , TABQ , QREG , ADD , DZ 

8118 / 4 CARRYL ; 

8119 / 4 LODUSR ; 

8120 / 4 LDMAR ; 

8121 006C8 / 4 DREAD ; RESOLVE, READ OFFSET ; NO 

8122 LPXENT: CALL DADD 4 AM2901 PC , S5 , RAMF , PASS , ZA 

8123 006C9 / 4 SPNOP ; DOUBLE ADD OFFSET 

8124 LPX05: JP VMAMAP 4AM2901 , PC , RAMF , ADD , ZB 

8125 / 4 CARRYH ; INC PC PAST DEF 

8126 006CA / 4 LODMSR SWAPUM ; USR = A 
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LINE ADDR STATEMENT 

8128 ; *************************************************^ 

8129 ;* * 

8130 ;* .LPXR - Load VMA pointer, add offset and map * 

8131 ;* * 

8132 ;* - Calling Sequence: * 

8133 ;* * 

8134 ;* JSB LPXR * 

8135 ;* DEF POINTER * 

8136 ;* DEF OFFSET * 

8137 ;* * 

8138 ;* - Resolve pointer, double load A & B , resolve offset, * 

8139 ;* and double add offset. * 

8140 ;* * 

8141 ;* - Note: OFFSET may NOT address A or B * 

8142 ;* * 

8143 ; ******************************************* 

8144 ;***** 

8145 .LPXR: CALL SAVNLD & AM2901 BR , TABQ , QREG , ADD , DZ 

8146 / & CARRYL ; 

8147 / & LODUSR ; 

8148 / & LDMAR ; 

8149 006CB / & DREAD ; RESOLVE, READ POINTER ; DL 

8150 CALL READRES & AM2901 PC , S5 , RAMF , PASS , ZA 

8151 / & LDMAR ; 

8152 006CC / & CREAD ; RESOLVE, READ OFFSET 

8153 CALL DADD & AM2901 , PC , RAMF , ADD , ZB 

8154 006CD / & CARRYH ; INC PC PAST 1ST DEF 

8155 JP LPX05 & AM2901 ,,NOP,ADD,AQ 

8156 006CE / & SPNOP ; FINISH 

8157 ;***** 

815 8 ; ***************************************************************** 

8159 ;* * 

8160 ;* LBP - Map VMA pointer in A/B to logical address * 

8161 ;* * 

8162 ;* -At entry, A and B contain the VMA pointer. * 

8163 ;* * 

8164 ; ***************************************************************** 

8165 ;***** 

8166 . LBPO: CALL SAVEAB & AM2901 PC , S5 , RAMF , PASS , ZA 

8167 006CF / & LODUSR ; SAVE PC.A.B 
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LINE ADDR STATEMENT 

8169 ; ***************************************************************** 

8170 ;* * 

8171 ;* VMAMAP - Perform VMA mapping function * 

8172 ;* * 

8173 ;* - If A(15) is set, then this is a local reference. The * 

8174 ;* B reg is resolved and microcode exits. * 

8175 ;* * 

8176 ; ************************************* 

8177 ;«**** 

8178 VMAMAP: CJP VMAP01 4 AM2901 , B , QREG , PASS , ZB 

8179 / 4 CONDUSR NSGN ; 

8180 006D0 / 4 LDMAR ; Q=MAR=B 

8181 CCALL INDRES 4 AM2901 ,,N0P,ADD,AQ 

8182 / 4 CONDUSR SGN ; 

8183 006D1 / 4 CMGO 4 DREAD ; RESOLVE FOR INDIRECTS 

8184 CONT 4 AM2901 , PC , NOP , SUBR , ZB 

8185 / 4 CARRYH ; 

8186 / 4 LDMAR 

8187 006D2 / 4 IFETCH ; FETCH NEXT INSTRUCTION 

8188 JZ 4 AM2901 , B , RAMF , PASS , ZQ 

8189 006D3 / 4 SPNOP ; B = RESOLVED ADDRESS 

8190 ; 

8191 VMAP01: CONT 4AM2901 , Y , RAMF , PASS ,DZ 

8192 006D4 / 4 I MM H#7800 ; Y = PAGE 30 

8193 CALL GETPTE1 4AM2901 ,,NOP,AND,ZQ 

8194 / 4 LODMSR RESET ; 

8195 / 4 ENBLO ; PMAP FLAG = FALSE 

8196 006D5 / 4 LDAER ; AER -> SYSTEM MAP (0) 

8197 PUSH H#005 4 AM2901 A , X , RAMF , PASS , ZA 

8198 006D6 / 4 SPNOP ; X=A 

8199 RFCT 4 AM2901 , X , SRAMQL , PASS , ZB 

8200 006D7 / 4 SHIFT B#0110 ; SHIFT AB IN XQ LEFT 6 

8201 CALL PTELKUP1 4 AM2901 , SI , NOP , PASS , ZB 

8202 006D8 / 4 SPWR MAPWR ; WRITE SI TO MAP REG 

8203 CONT & AM2901 , Y , RAMF , PASS , DZ 

8204 / 4 IMM H#7C00 ; 

8205 006D9 / 4 LDMAR ; Y=MAR=PAGE 31 

8206 CALL PTELKUP 4AM2901 , X , RAMF , ADD , ZB 

8207 006DA / 4 CARRYH ; INC PAGEID 

8208 CONT 4 AM2901 B , B , RAMF , NOTRS , DA 

8209 006DB / 4 IMM H#FC00 ; B = OFFSET 

8210 CONT 4 AM2901 , PC , NOP , SUBR , ZB 

8211 / 4 CARRYH ; 

8212 / 4 LDMAR ; 

8213 006DC / 4 IFETCH ; FETCH NEXT INSTRUCTION 

8214 JZ 4 AM2901 B , B , RAMF , OR , DA 

8215 006DD / 4 IMM H#7800 ; B = LOGICAL ADDRESS 
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LINE ADDR STATEMENT 



8217 
8218 
8219 
8220 
8221 
8222 
8223 
8224 
8225 
8226 
8227 
8228 
8229 
8230 
8231 
8232 
8233 
8234 
8235 
8236 
8237 
8238 
8239 
8240 
8241 
8242 
8243 
8244 
8245 
8246 
8247 
8248 
8249 
8250 
8251 
8252 
8253 
8254 
8255 
8256 
8257 
8258 
8259 
8260 



006DE 

006DF 
006E0 
006E1 
006E2 
006E3 
006E4 
006E5 



****************************************** 



.PMAP - PAGE MAP 

Calling Sequence: 

LDA REG# IN MAPX 
LDB PAGE_ID 
JSB . PMAP 
<ERROR RETURN> 
<NORMAL RETURN> 

Used to load arbitrary map reg in MAPX for VMA 

A reg contains page reg in MAPX to load. B reg 
same VMA page_id as bits 25-10 of VMA pointer. 



contains 



Perform VMA lookup as in . LBP . If fault and A15 == 1 
then take <error return). If successful lookup, then 
load page reg in MAPX, inc A and B and take <normal ret> 

0 reg is set to 1 

E reg set if to 1 if last+1 page mapped 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



***************************************************************** 

PMAP: C0NT & AM2901 , Y , RAMF , PASS , DZ 

& IMM H#7C00 ; Y -> PAGE 31 

& AM2901 PC, S5, RAMF , PASS, ZA 
& LODMSR SET 

& ENBLO ; SET PMAP FLAG 

& AM2901 B,X, RAMF, PASS, ZA 

& SPN0P ; LOOK UP PTE ENTRY, MAP 

& AM2901 A, S3, RAMA, PASS, DZ 
& SPRD RL4 ; S3 = A LEFT 4 

& AM2901 S3, S3, RAMA, PASS, DZ 
& SPRD RL4 ; S3 = A LEFT 8 

& AM2901 ,S3,SRAML,PASS,ZB 
& SHIFT BH0010 ; S3 = A LEFT 1.0 
& AM2901 , S3, NOP, PASS, ZB 

& LDMAR ; MAR -> REG TO LOAD IN MAP 

JP INCBPC & AM2901 , A , RAMF , ADD , ZB 

& CARRYH ; INC A & B ; SKIP 



CALL GETPTE 



CALL PTELKUP 



CONT 



PUSH H#001 



RFCT 



CALL WRTMAP 
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LINE ADDR STATEMENT 



8262 








8263 










* 


8264 






* 


. IRES 


* 


8265 






* 


Single integer subsript calculation * 


8266 










* 


8267 








8268 












8269 






IRES: 


CALL IRSUB & AM2901 BR , TABQ , QREG , ADD , DZ 


8270 




/ 


& CARRYL 




8271 




/ 


& LODUSR 




8272 




/ 


& LDMAR 




8273 


006E6 


/ 


& DREAD 


READ DOPE VECTOR 


8274 








JZ & AM2901 S6 , PC , RAMA , ADD , ZA 


8275 




/ 


& CARRYH 




8276 




/ 


& LDMAR 




8277 


006E7 


/ 


& IFETCH 


FETCH NEXT INST 


8278 












8279 






3(C 3fC -S^^ - *3fC ■^^^ 3(C" 3(C- 3fC 3fC 3^C'3fC 3fC 3fC 3(C3fC3fC 3fC3fC 3fC 3tC 3(C 3fC 3(C ?fC3^C-3^C 3|C3f^ 


8280 






* 




* 


8281 






* 


. IMAP 


* 


8282 






* 


Do IRES, then map result 


* 


8283 






* 




* 


8284 






***************************************** 


8285 












8286 






IMAP: 


CALL IRSUB & AM2901 BR , TABQ , QREG , ADD , DZ 


8287 




/ 


& CARRYL 




8288 




/ 


& LODUSR 




8289 




/ 


& LDMAR 




8290 


006E8 


/ 


& DREAD 


READ DOPE VECTOR 


8291 








CONT & AM2901 PC , S5 , RAMF , PASS , ZA 


8292 


006E9 


/ 


& SPNOP 


SAVE PC FOR VMAMAP 


8293 








JP VMAMAP & AM2901 S6 , PC , RAMF , ADD , ZA 


8294 




/ 


& CARRYH 


SET PC TO NEW VALUE , 


8295 


006EA 


/ 


& LODMSR SWAPUM 


USR = MSR 
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LINE ADDR STATEMENT 



8297 
8298 
8299 
8300 
8301 
8302 
8303 
8304 
8305 
8306 
8307 
8308 
8309 
8310 
8311 
8312 
8313 
8314 
8315 
8316 
8317 
8318 
8319 
8320 
8321 
8322 
8323 
8324 
8325 
8326 
8327 
8328 
8329 
8330 



006EB 



006EC 



006ED 



006EE 



006EF 



**************************************** 

* * 

* .JRES * 

* Double integer subscript calculation * 



JRES. 



CALL JRSUB 



JZ 



& 
& 
& 
& 
& 
& 
& 
& 
& 



AM2901 

CARRYL 

LODUSR 

LDMAR 

DREAD 

AM2901 

CARRYH 

LDMAR 

IFETCH 



BR , TABQ , QREG , ADD , DZ 



READ DOPE VECTOR 
S6,PC,RAMA,ADD,ZA 



***************************************************************** 

* * 

* JMAP * 

* Do JRES, then map result * 

* * 



JMAP: 



CALL JRSUB 



CONT 

JP VMAMAP 



& AM2901 BR, TABQ. QREG, ADD, DZ 
4 CARRYL 
& LODUSR 
4 LDMAR 
4 DREAD 
4 AM2901 PC,S5,RAMF,PASS,ZA 
4 SPNOP ; SAVE PC FOR VMAMAP 

4 AM2901 S6,PC,RAMF,ADD,ZA 
4 CARRYH ; 
4 LODMSR SWAPUM ; USR = MSR 
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LINE ADDR STATEMENT 

8333 ;* * 

8334 ;* VMA UTILITIES * 

8335 ;* * 

8337 ;***** 

8339 ;* * 

8340 ;* SAVEAB - SAVE A & B IN R6 & R7 * 

8341 ;* RESOLVE AND READ DEF * 

8343 ; 

8344 SAVEAB: CCALL READRES & AM2901 B , S7 , RAMF , PASS , ZA 

8345 006F0 / & CONDUSR SGN ; SAVE B; RESOLVE DEF 

8346 RET & AM2901 A , S6 , RAMF , PASS , ZA 

8347 006F1 / & LODUSR ; SAVE A; LODUSR FOR VMAMAP 

8348 SAVNLD: CCALL READRES & AM2901 B , S7 , RAMF , PASS , ZA 

8349 006F2 / & CONDUSR SGN ; SAVE B ; RESOLVE DEF 

8350 CONT & AM2901 A , S6 , RAMF , PASS , ZA 

8351 006F3 / & SPNOP ; SAVE A 

8353 ;* * 

8354 ;* DLOAD - DOUBLE LOAD A & B FROM MEMORY * 

8355 ;* A : = (QREG) , B : = (QREG+1) * 

8356 ;* * 

8358 ; 

8359 DLOAD: CONT & AM2901 ,, QREG , ADD , ZQ 

8360 / & CARRYH ; 

8361 / & LDMAR ; 

8362 0D6F4 / & DREAD ; READ SECOND WORD 

8363 DL0AD1: CONT &AM2901 TAB , A , RAMF , PASS , DZ 

8364 006F5 / & LODMSR ; LOAD A ; MSR = A STATUS 

8365 RET & AM2901 TAB , B , RAMF , PASS , DZ 

8366 006F6 / & SPNOP ; LOAD B, RETURN 

8368 ;* * 

8369 ;* DADD - DOUBLE ADD ( QREG , QREG+1 ) TO ( A , B ) * 

8370 ;* * 

8371 ; ********************************* 

8372 ; 



8373 




DADD: 


CONT 


& 


AM2901 


, , QREG, ADD, ZQ 


8374 




/ 




& 


CARRYH 




8375 




/ 




& 


LDMAR 




8376 


006F7 


/ 




Sc 


DREAD 


; READ SECOND WORD 


8377 




DADD1 : 


CONT 


& 


AM2901 


A, A, RAMF, ADD, DA 


8378 


006F8 


/ 




& 


CARRYL 


; ADD MSW TO A 


8379 






CONT 


& 


AM2901 


B,B, RAMF, ADD, DA 


8380 




/ 




& 


CARRYL 




8381 


006F9 


/ 




& 


LODUSR 


; ADD LSW TO B 


8382 






RET 


& 


AM2901 


, A , RAMF , ADD , ZB 


8383 




/ 




& 


CARRYREG ; 


8384 


006FA 


/ 




& 


LODMSR 


CREG ; PROPAGATE CARRY 
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8386 
8387 
8388 
8389 
8390 
8391 
8392 
8393 
8394 
8395 
8396 
8397 
8398 
8399 
8400 
8401 
8402 
8403 
8404 
8405 
8406 
8407 
8408 
8409 
8410 



006FB 



006FC 



006FD 



006FE 



006FF 



00700 



**************************************** 

* * 

* GETPTE - MAPS THE PTE PAGE INTO THE REGISTER * 

* POINTED TO BY Y * 

* * 
***************************************************************** 



GETPTE : 
/ 

GETPTE1: 

/ 
/ 
/ 



CONT 
CONT 

CONT 
CRET 

CONT 
CONT 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



AM2901 ,,NOP,AND,ZQ 

LDAER ; AER -> SYSTEM MAP (0) 

AM2901 ,, NOP, PASS, DZ 
I MM VMAPTE 
LDMAR ; 

DREAD ; READ PTE PAGE NO 

AM2901 MAPX, , NOP, PASS, DZ 

LDAER ; RESTORE MAPX TO AER 

AM2901 Y, SI, RAMA, PASS, DZ 

CONDUSR NSGN ; IF SIGN BIT SET, FAULT 



; (VMA NOT INITIALIZED) 
; S1=PTE PAGE NO ;MAR=PTE AD 
NOP.NOTRS.DA 

; SPWR IS MAPWR 



SEQFRZ 
LDMAR 

AM2901 SI, 
SPWR 

IMM H»8O0O 
AM2901 Y , Y , RAMF , OR , DA 

IMM H#8000 ; SET SIGN BIT OF Y FOR 

; PTE NOT INITIALIZED FAULT 
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8412 

8413 

8414 

8415 

8416 

8417 

8418 

8419 

8420 

8421 

8422 

8423 

8424 

8425 

8426 

8427 

8428 

8429 

8430 

8431 

8432 

8433 

8434 

8435 

8436 

8437 

8438 

8439 

8440 

8441 

8442 

8443 

8444 

8445 

8446 

8447 

8448 

8449 

8450 

8451 

8452 

8453 

8454 

8455 

8456 

8457 

8458 

8459 

8460 

8461 

8462 

8463 



00701 
00702 
00703 

00704 
00705 

00706 

00707 
00708 

00709 
0070A 
0070B 
0070C 



**************************************** 



VMAFAULT 

VMA page fault handler. This routine is common 
to . LBP , .IMAP and .PMAP. Note that PMAP must 
take an error return if A(15) is set. 

X reg is set to the PAGID of the page not in the PTE 

Y reg is set to the logical address of the PTE. 

Perform a JSB indirect thru location $VMA$ (VMALOC). 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



VMAFAULT: CJP 
/ 
/ 
/ 



CONT 
CJP 
CONT 

CONT 



***** - Restore PC to value at entry to VMA 
***** - Test for PMAP special handling 

VMAFPMAP 4 AM2901 S5 , PC , RAMF , SUBR , ZA 
4 CARRYH 

4 CONDMSR OVR ; 

A LDMAR ; RESTORE PC; IF OVR, WAS P 

4 AM2901 S6,A,RAMF,PASS,ZA 
4 SPNOP ; RESTORE A 

VMAFCDS 4 AM2901 S7 , B , RAMF , PASS , ZA 

4 CONDEXT CSON ; RESTORE B ; IF CSMODE ON, 
4 AM2901 , , NOP, PASS, DZ 
4 I MM VMALOC 
& LDMAR 

& CREAD ; READ $VMA$ ADDRESS 

& AM2901 , ,QREG , PASS ,DZ 
& LDMAR ; 

4 MWAIT ; QREG = $VMA$ ; DO A PSEUDO 

JSBIVMA 4 AM2901 PC , TAB , NOP , SUBR , ZA 
4 CARRYH 

4 LDMDOR ; 
4 DWRITE ; 
VMAFCSO 4 AM2901 , A , NOP , PASS , ZB 
4 CONDEXT CSON ; 

4 LUSRCOND ; TEST A FOR SIGN BIT 

VMAF1 4 AM2901 ,,N0P,ADD,AQ 

& CONDUSR NSGN ; IF NOT SET, NORMAL FAULT 
VMAFPAT & AM2901 , PC , RAMF , ADD , ZB 
4 CARRYH ; INC PC 

& IFETCH ; FETCH 

VMAFP01 4 AM2901 ,,N0P,ADD,AQ 

4 CONDUSR SGN ; IF SIGN SET, ERROR RETURN 
4 AM2901 ,S7, RAMF, PASS, DZ 
4 IMM VMATRAP ; 
FAULT 4 AM2901 , PC , RAMF , ADD , ZB 

4 CARRYH ; 



/ 
/ 

VMAF1 : 

/ 
/ 
/ 

/ 
/ 

/ 
/ 
/ 

VMAFPMAP: CJP 
/ 
/ 



JP 



/ 

VMAFP01 

/ 
/ 

VMAFCSO 

/ 

VMAFCDS 

/ 

/ 



CJP 
JP 

CJP 

CONT 

JP 
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8465 
8466 
8467 
8468 
8469 
8470 
8471 
8472 
8473 
8474 
8475 
8476 
8477 
8478 
8479 
8480 
8481 
8482 
8483 
8484 
8485 
8486 
8487 
8488 
8489 
8490 
8491 
8492 
8493 
8494 
8495 
8496 
8497 
8498 
8499 
8500 
8501 
8502 
8503 
8504 
8505 
8506 
8507 
8508 
8509 
8510 
8511 
8512 
8513 
8514 
8515 
8516 
8517 



0070D 
0070E 

0070F 
00710 

00711 



00712 
00713 

00714 
00715 



***************************************** 



- At 



PTE LKUP - Lookup page in PTE 
ent ry : 



Y & 



X 

R5 • 
MAR 



- At exit : 

R15 
E 

Map 



• Page ID 
PTE page number 

- Logical address of PTE (A map reg to update) 



- VMA Page loaded into map register 
- Set if last+1 page, Clear otherwise 
register updated 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



***************************************************************** 

C0NT & AM2901 , SI , NOP , PASS , ZB 



PTELKUP : 

/ 

PTELKUP1 

/ 

/ 
/ 



***** 
***** 



C0NT 



C0NT 



CONT 



C0NT 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



SPWR MAPWR 
AM2901 X,S2 
I MM H#FC00 
AM2901 Y.S2 
LDMAR 
DREAD 

AM2901 X,S2 
SPN0P 
AM2901 
LODMSR 
ENBLC 



; WRITE MAP REG 
RAMF , NOTRS ,DA 

; S2 = PTE OFFSET 
OR ,AB 



NOP, 



; READ 
RAMF ,EX0R 
; S2 = 
, ,QREG,PASS,DZ 
RESET ; 

; QREG 



PTE 

AB 

VMA 



ENTRY 



SEG | 0 



PTE ENT; MC = 0 



- Determine which PTE entry case this is 



- Algo rit hm is : 

1 . Test for 



Test for 
Test for 
If zero, 



1111U0000000000B. If 
VMA suit match. If not 
page offset from PTE of 
then last+1 page case and map 



same, then fault 
same t hen fault . 
ze ro . 

177777Q 



CONT 



CJP VMAFAULT 



CONT 



CJP VMAFAULT 



CCALL LSTPGP1 



else perform normal mapping 
,N0P,EXOR ,DQ 



& 
& 
& 
& 
& 

& 
& 
& 
& 
& 
& 
& 



AM2901 
LUSRCOND 
I MM H#FC00 
AM2901 S2.S2 
CONDUSR Z 



AM2901 S2, 
LUSRCOND 
IMM H#FC00 
AM2901 ,S2 
CONDUSR NZ 



; TEST FOR NO ENTRY 
RAMF , EXOR , AQ 

; S2 = 0 | OFFSET ; 
; (IF SUITS MATCH) 
NOP. AND, DA 



JP IF N 



; MASK OFFSET, CHECK FOR SU 
NOP, PASS, ZB 

; IF NOT 0, FAULT 
AM2901 SI , S2 , RAMF , ADD , AB 
CARRYL ; 
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8518 
8519 
8520 
8521 
8522 
8523 
8524 
8525 



00716 



00717 



00718 



/ 

WRTMAP: 

/ 

LSTPGP1 : 

/ 
/ 
/ 



RET 



RET 



4 CONDUSR Z ; IF OFFSET 0, 

4 AM2901 ,S2, NOP, PASS, ZB 

4 SPWR MAPWR ; WRITE MAP REG 



LAST PAGE + 



4 AM2901 S2,S2,RAMF,SUBR,AB 
4 CARRYH 
4 LODMSR SET 
4 ENBLC 



S2=FFFF, SET MC 
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8528 ;* * 

8529 ;* IRSUB - Calculate subscripted array address * 

8530 ;* * 

8531 ;* -Calling Sequence: * 

8532 ;* * 

8533 ;* JSB IRES/.IMAP * 

8534 ;* DEF DOPE VECTOR --> DEC N # DIMENSIONS * 

8535 ;* DEF An SUBSCRIPT N DEC Dn-1 DIMENSION N-l * 

8536 ;* DEF An-1 SUBSCRIPT N-l DEC Dn-2 DIMENSION N-2 * 

8537 ;* . * 

8538 ;* . * 

8539 ;* . * 

8540 ;* DEF A2 SUBSCRIPT 2 DEC Dl DIMENSION 1 * 

8541 ;* DEF Al SUBSCRIPT 1 DEC E # WORDS PER ELEMENT * 

8542 ;* OCT UPPER HALF OF OFFSET * 

8543 ;* OCT LOWER HALF OF OFFSET * 

8544 ;* * 

8545 ;* -Calculation for B(A1 ,A2 , A3 , A4) is: * 

8546 ;* * 

8547 ;* offset(B) + E * {Al + D1*[A2 + D2*[A3 + D3*[A4 + 0]]]} * 

8548 ;* * 

8549 ;* * 

8550 ;* -Notes: * 

8551 ;* - Subscripts are sign extended to 32 bits * 

8552 ;* - If a dimension is zero, it is really 2**16 * 

8553 ;* - Calculation is accumulated in A and B * 

8554 ;* - It is possible for t dimensions (N) to be zero * 

8555 ;* - DEF'S can NOT be A/B addressable * 

8556 ;* * 

8558 ;*«*** 

8559 IRSUB: CCALL MRGIND & AM2901 PC , S6 , RAMF , PASS , ZA 

8560 00719 / & CONDUSR SGN ; RESOLVE DOPE VECTOR 

8561 CONT & AM2901 PC , S4 , RAMA , SUBS , DZ 

8562 / & CARRYL 

8563 / & LODMSR ; 

8564 0071A / & LDMAR ; S4=MSR=N-1 ; MAR = 1ST SU 

8565 CCALL READRES & AM2901 , SI , RAMF , ADD , ZQ 

8566 / & CARRYH ; SI = POINTER TO DOPE VECT 

8567 / & CONDMSR NSGN ; READ FIRST SUBSCRIPT 

8568 0071B / & CMGO & CREAD ; (IF THERE ARE ANY) 

8569 CJP IDONE & AM2901 SI , A , RAMA , AND , ZQ 

8570 / & CONDMSR SGN ; JP & READ IF DONE 

8571 / & LDMAR ; MAR = POINTER TO DOPE VEC 

8572 0071C / & CMGO & DREAD ; A = 0 

8573 CJP INEG & AM2901 , B , RAMF , PASS , DZ 

8574 / & CONDEXT MDIR15 ; B = FIRST SUBSCRIPT 

8575 0071D / & DREAD ; SIGN EXTEND IF NEG 

8576 ;***** 

8577 ;***** - Iteration loop 

8578 ;***** - Multiply accumulator by dimension 

8579 ;***** - Unsigned multiply. 
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85 80 


















8581 








- Algorithm is 








8582 












S2 


4 


Q : = B * DIMENSION 


85 83 
















B : = Q 


8584 












S2 


4 


Q := A * DIMENSION + R13 


8585 


















8586 




IR05 : 


LDCT 


H#00F 




0 

& 


AM2901 B , SO , RAMF , PASS , ZA 


8587 


0071E 


/ 








■ 

& 


SPNOP ; SO = B 


8588 








C JP 


ZDIM 




& 


AM2901 , ,QREG, PASS.DZ 


8589 




/ 








• 

& 


C0NDUSR Z ; 


8590 


0071F 


/ 








4 


SEQFRZ ; QREG = DIMENSION ; TEST F 


8591 








CPUSH 






St 


AM2901 , S2 , SRAMQR , AND , ZB 


8592 




/ 








4 


CONDUSR Z ; 


8593 


00720 


/ 








4 


SHIFT B#0110 ; NEVER LOAD COUNTER 


8594 








D c r* T 

Rr CT 






4 


AM2901 MPY8 ,S2 , SRAMQR , ADD, AB 


8595 




/ 








m 

& 


CARRYL ; 


8596 


00721 


/ 








• 

4 


SHIFT B#1011 ; UNSIGNED MULTIPLY 


8597 








CONT 






■ 

& 


AM2901 , B , RAMF , PASS , ZQ 


8598 


00722 


/ 








4 


SPNOP ; B=RESULT (DONE WITH B) 


8599 








LDCT 


H#00F 




4 


AM2901 , , QREG, PASS, DZ 


8600 


00723 


/ 








4 


LODUSR ; QREG = DIMENSION 


8601 


















8602 








- Notes 


: - S2 is 


a partial product that must be added, UNSHIFT 


8603 






***** 




- The 


following CPUSH never loads the counter 


8604 


















8605 








CPUSH 






4 


AM2901 , S3, SRAMQR, PASS, ZB 


8606 




/ 








4 


CONDUSR Z ; 


8607 


00724 


/ 








4 


SHIFT B#0110 ; SET QOBUF 


8608 








RFCT 






4 


AM2901 MPY.S2, SRAMQR, ADD, AB 


8609 




/ 








& 


CARRYL ; 


8610 


00725 


/ 








4 


SHIFT B#1011 ; MULTIPLY BY A 


8611 




IR07: 


LDCT 


DADD1 




4 


AM2901 ,S6, RAMF, ADD, ZB 


8612 




/ 








4 


CARRYH ; 


8613 




/ 








4 


CONDMSR NZ ; 


8614 




/ 








4 


LDMAR ; 


8615 


00726 


/ 








4 


CMGO 4 CREAD ; READ NEXT DEF , IF NOT DON 


8616 








CCALL 


READRES 




& 


AM2901 , A, RAMF, PASS, ZQ 


8617 


00727 


/ 








4 


CONDMSR NZ ; 


8618 




IR08 : 


CJP 


ID0NE 




4 


AM2901 , SI, RAMF, ADD, ZB 


8619 




/ 








& 


CARRYH ; 


8620 




/ 








4 


CONDMSR Z ; 


8621 




/ 








& 


LDMAR ; 


8622 


00728 


/ 








& 


CMGO 4 DREAD ; READ NEXT IN DOPE VECTOR 


8623 








LDCT 


IR05 




& 


AM2901 ,S4,RAMF,SUBR,ZB 


8624 




/ 








& 


CARRYH ; 


8625 


00729 


/ 








& 


LODMSR ; DECREMENT COUNT 


8626 








CJP 


INTERRPT 




& 


AM2901 B,B, RAMF, ADD, DA 


8627 




/ 








& 


CARRYL ; 


8628 




/ 








& 


LUSRCOND ; 


8629 


0072A 


/ 








& 


CONDEXT INTRPT ; IF INT PEND, JP; ADD S TO 


8630 








JRP 


INEG 




& 


AM2901 , A , RAMF , ADD , ZB 


8631 




/ 








& 


CARRYREG ; PROPAGATE CARRY TO A 


8632 




/ 








& 


CONDEXT MDIR15 ; IF SUBSCRIPT NEGATIVE, 


8633 


0072B 


/ 








& 


DREAD ; SIGN EXTEND A. READ DIM 
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8634 INEG: JP IR05 & AM2901 , A , RAMF , SUBR , ZB 

8635 0072C / & CARRYH ; ADD H#FFFF TO A 

8636 ; 

8637 ;***** 

8638 ;***** DIMENSION IS 0 - MEANS DIM IS REALLY 2~16 

8639 ;***** 

8640 ZDIM: CONT & AM2901 , B , QREG , PASS , ZB 

8641 0072D / & SPNOP ; QREG = B ; 

8642 CJP IR07 & AM2901 , B , RAMF , AND , ZQ 

8643 0072E / & CONDMSR NZ ; B=0 ; IF ACTUAL DIM, DONE 

8644 JP IR08 & AM2901 , A , RAMF , AND , ZQ 

8645 0072F / & SPNOP ; * WORDS/ELEMENT=0 -> A=0 , 

8646 ; 

8647 IDONE: JRP DLOAD1 & AM2901 , SI , RAMF , ADD , ZB 

8648 / & CARRYH ; 

8649 / & CONDMSR SGN 

8650 / & LDMAR 

8651 00730 / & DREAD ; LOAD OR ADD OFFSET TO (A, 

A600+ BASESET MICROCODE 6/15/83 ** [&LBRB1 ] 1:35 PM TUE., 13 SEPT, 1983 PAGE 221 

LINE ADDR STATEMENT 

8653 FDVPAT: CONT & AM2901 , YEXP , SRAMR , ADD , ZB 

8654 / & CARRYH ; YEXP ENDS UP INCREMENTED 

8655 / & CONDUSR NOVR ; FOR COMPATIBILITY WITH RE 

8656 00731 / & SHIFT B#0000 ; 

8657 JP FDIVSUB & AM2901 , XEXP , RAMF , SUBR , ZB 

8658 00732 / & CARRYH ; CORRECT EXPONENT 

8659 JZ & AM2901 ,, QREG , ADD ,AQ 

8660 00733 / & SHIFT B«0110 ; 

8661 JZ & AM2901 ,, QREG , ADD , AQ 

8662 00734 / & CARRYH ; 

8663 00735 FILLER 
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8665 

8666 

8667 

8668 

8669 

8670 

8671 

8672 

8673 

8674 

8675 

8676 

8677 

8678 

8679 

8680 

8681 

8682 

8683 

8684 

8685 

8686 

8687 

8688 

8689 

8690 

8691 

8692 

8693 

8694 

8695 

8696 

8697 

8698 

8699 

8700 

8701 

8702 

8703 

8704 

8705 

8706 

8707 

8708 

8709 

8710 

8711 

8712 

8713 

8714 

8715 

8716 

8717 



00736 



00737 



00738 



00739 



0073A 



JRSUB - Calculate subscripted array address for JRES 
-Calling Sequence: 



. JRES/. JMAP 



DOPE 
An 

An-1 



VECTOR > 

SUBSCRIPT N 
SUBSCRIPT N-l 



DEC 
DEC 
DEC 



N 

Dn-1 
Dn-2 



* DIMENSIONS 



DIMENSION 
DIMENSION 



************************************** 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



JSB 
DEF 
DEF 
DEF 



DEF 
DEF 



A2 
Al 



SUBSCRIPT 
SUBSCRIPT 



DEC 
DEC 
OCT 
OCT 



Dl 
E 



DIMENSION 
* 



1 



UPPER HALF 
LOWER HALF 



WORDS PER ELEMENT 
OF OFFSET 
OF OFFSET 



-Calculation for B ( Al , A2 , A3 , A4 ) is: 

offset(B) + E * {Al + D1*[A2 + D2*[A3 + D3*[A4 + 0]]]} 
- All subscripts and dimensions are double integers 



■Notes : 

- Subscripts are 

- If a dimension 

- Calculation is 

- It is possible 



sign extended to 32 bits 

is zero, it is really 2**16 

accumulated in A and B 

for * dimensions (N) to be zero 



DEF'S can NOT be A/B addressable 



* 
* 
* 
* 
* 
* 
* 



*********************************************«)K«)|;«««lt;************ 



JRSUB: 

/ 
/ 

/ 
/ 
/ 

/ 
/ 
/ 

/ 
/ 
/ 
/ 

/ 
/ 



CCALL MRGIND 



CONT 



CCALL READRES 



CJP IDONE 



CONT 



& 


AM2901 


PC,S6,RAMF,ADD,ZA 


& 


CARRYH 




S6 = ~DEFS 


& 


CONDUSR 


SGN 


RESOLVE DOPE VECTOR 


& 


AM2901 


PC, S4, RAMA, SUBS, DZ 


& 


CARRYL 




S4 = MSR = N-l 


& 


LODMSR 






& 


LDMAR 




MAR = 1ST SUBSCR 


& 


AM2901 


, SI , RAMF 


ADD , ZQ 


& 


CARRYH 




SI = POINTER TO DOPE VECT 


& 


CONDMSR 


NSGN 


READ FIRST SUBSCRIPT 


& 


CMGO & 


CREAD 


(IF THERE ARE ANY) 


& 


AM2901 


SI, SO, RAMA, ADD, ZQ 


& 


CARRYH 




SO = 2ND WORD ADDRESS 


& 


CONDMSR 


SGN 


JP & READ IF DONE 


& 


LDMAR 




MAR = POINTER TO DOPE VEC 


& 


CMGO & 


DREAD 


A = 0 


& 


AM2901 


SO, A, RAMA, PASS, DZ 


& 


LDMAR 




A = FIRST SUBSCRIPT UPPER 


& 


DREAD 




READ SECOND WORD 
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8718 

8719 

8720 

8721 

8722 

8723 

8724 

8725 

8726 

8727 

8728 

8729 

8730 

8731 

8732 

8733 

8734 

8735 

8736 

8737 

8738 

8739 

8740 

8741 

8742 

8743 

8744 

8745 

8746 

8747 

8748 

8749 

8750 

8751 

8752 

8753 

8754 

8755 

8756 

8757 

8758 

8759 

8760 

8761 

8762 

8763 

8764 

8765 

8766 

8767 

8768 

8769 

8770 

8771 



0073B 



0073C 



0073D 

0073E 
0073F 
00740 
00741 

00742 

00743 
00744 
00745 



00746 

00747 
00748 
00749 



I 
/ 

/ 
/ 

***** 
***** 

***** 

JLOOP: 

/ 

/ 

/ 
/ 
/ 

/ 

JENTO : 

/ 

JENT : 
/ 

/ 
/ 

/ 
/ 



/ 



CONT & AM2901 SI , SI , RAMA , ADD , ZB 

& CARRYH ; INC ~D . V . 

& LDMAR ; 
CJP JR08 & AM2901 , B , RAMF , PASS , DZ 

& CONDMSR Z ; 

& DREAD ; READ DIM UPPER 



Iteration loop 

Multiply accumulator by dimension 
Unsigned multiply. 



Algorithm is 



S2 & Q 
B 

S2 & Q 



= B * DIMENSION 
= Q 

= A * DIMENSION + R13 



CONT 
CONT 

CJP JSWP 
CONT 

LDCT H#00F 
CPUSH 

RFCT 

CONT 

LDCT H#00F 



AM2901 SI, SI, RAMA, ADD, ZB 
; INC SI 



,S3,RAMF,0R,DZ 



CARRYH 
LDMAR 
AM2901 
CARRYH ; 
DREAD ; 
LODUSR 

AM2901 B, SO, RAMF, PASS, ZA 

CONDUSR UGT ; JP IF NOT ZEROS OR ONES 

AM2901 ,S5, RAMF, PASS, DZ 

SPNOP ; S5 = DIM LOWER 

AM2901 ,S5 ,QREG,PASS,ZB 

SPNOP ; QREG = S5 

AM2901 , S2 , SRAMQR , AND , ZB 

CONDMSR SGN ; 

SHIFT B#0110 ; NEVER LOAD COUNTER 
AM2901 MPY8 ,S2 , SRAMQR , ADD, AB 
CARRYL ; 

SHIFT B#1011 ; UNSIGNED MULTIPLY 
AM2901 ,B, RAMF, PASS, ZQ 

SPNOP ; B=RESULT (DONE WITH B) 

AM2901 ,S5, QREG, PASS, ZB 

SPNOP ; QREG = DIMENSION 



Notes : 
CPUSH 
RFCT 

LDCT DADD1 
CJP JR05 
CONT 



S2 is a partial product that must be added, UNSHIFT 
The following CPUSH never loads the counter 



& AM2901 ,S7, SRAMQR, AND, ZB 

& CONDMSR SGN ; 

4 SHIFT B#0110 ; SET QOBUF 

& AM2901 MPY.S2, SRAMQR, ADD, AB 

& CARRYL ; 

& SHIFT B#1011 ; MULTIPLY BY A 

& AM2901 , S3, NOP, PASS, ZB 

& LODUSR ; USR = DIM UPPER SIGN 

& AM2901 , A, RAMF, PASS, ZQ 

& CONDUSR NSGN 

& AM2901 S5 , A , RAMF , SUBR , AB 
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LINE ADDR STATEMENT 



8772 

8773 

8774 

8775 

8776 

8777 

8778 

8779 

8780 

8781 

8782 

8783 

8784 

8785 

8786 

8787 

8788 

8789 

8790 

8791 

8792 

8793 

8794 

8795 

8796 

8797 

8798 

8799 

8800 

8801 

8802 

8803 

8804 

8805 

8806 

8807 

8808 

8809 

8810 

8811 

8812 

8813 

8814 

8815 

8816 



0074A 



0074B 

0074C 
0074D 

0074E 
0074F 

00750 

00751 



00752 
00753 
00754 

00755 
00756 
00757 
00758 
00759 



/ 

JR05 : 
/ 
/ 
/ 

/ 
/ 
/ 

/ 
/ 

/ 
/ 
/ 



/ 
/ 

/ 
/ 

/ 
/ 
/ 
/ 

JR08: 
/ 

/ 

JSWP: 
/ 

/ 

/ 

/ 

/ 



4 CARRYL 



SUBTRACT DIM LOWER FROM A 
!N0 CHECK FOR OVERFLOW! 



CJP IDONE 

CALL READRES 

CONT 
CONT 

CONT 
CONT 

CJP INTERRPT 
CJP JLOOP 



CONT 

JP JENTO 

CONT 
CONT 
CONT 
CONT 

JP JENT 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



AM2901 
CONDMSR 
LDMAR 
CMGO & 



Sl,NOP,PASS,ZB 
Z 



READ, 
NOP, ADD, ZQ 



DREAD 

AM2901 S6 ,S6 , RAMA, ADD, ZB 
CARRYH 
LDMAR 
CREAD 
AM2901 
CARRYH 
LDMAR 

AM2901 ,S4,RAMF 
CARRYH 
LODMSR 
DREAD 

AM2901 A , A , RAMF 
CARRYL 

B , B , RAMF 



READ NEXT IN DOPE VECTOR 



RESOLVE NEXT DEF 



AM2901 
CARRYL 
LODUSR 
AM2901 



MAR = 2ND WORD ADDRESS 
SUBR.ZB 



ADD, DA 



ADD, DA 



, A , RAMF , ADD , ZB 

; PROPAGATE CARRY 



CARRYREG 
CONDEXT INTRPT ; 
AM2901 SI ,S1 , RAMA, ADD, ZB 
CARRYH 
CONDMSR NZ 



LDMAR 
DREAD 

AM2901 , S3, RAMF 
SPNOP 

AM2901 B, SO, RAMF, PASS, ZA 



READ DIMENSION UPPER 

AND , ZB 
S3 = 0 



SPNOP 



LAST TIME THROUGH LOOP 



& AM2901 B,S5 , RAMF , PASS, ZA 
& SPNOP ; 
& AM2901 A, SO, RAMF, PASS, ZA 
& SPNOP 

& AM2901 S3, A, RAMF, PASS, ZA 

4 SPNOP ; 

& AM2901 SO, S3, RAMF, PASS, ZA 

& SPNOP ; 

& AM2901 , SO, RAMF, PASS, DZ 

& SPNOP ; 



D-218 



A600+ BASESET MICROCODE 6/15/83 ** [4LBRB1] 
LINE ADDR STATEMENT 
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8818 

8819 

8820 

8821 

8822 

8823 

8824 

8825 

8826 

8827 

8828 

8829 

8830 

8831 

8832 

8833 

8834 

8835 

8836 

8837 

8838 

8839 

8840 

8841 

8842 

8843 

8844 

8845 

8846 

8847 

8848 

8849 

8850 

8851 

8852 

8853 

8854 

8855 

8856 

8857 

8858 

8859 

8860 

8861 

8862 

8863 

8864 

8865 

8866 



VCP ROM CHECKSUM CHECK 



0075A 

0075B 
0075C 
0075D 
0075E 

0075F 
00760 

00761 
00762 

00763 
00764 
00765 

00766 

00767 

00768 
00769 



CHECKSUM: CONT 

/ 

/ 



/ 
/ 
/ 

/ 
/ 

I 
I 
I 

I 

I 

EIGHTK: 

/ 

I 

I 

/ 
I 

/ 
/ 



CONT 

CONT 
CONT 
CONT 
CONT 

CCALL EIGHTK 
PUSH H#FFE 

CONT 
RFCT 

CRET 
JP $ 
PUSH H#FFE 

CONT 
RFCT 
RET 



& AM2901 
& IMM H#0020 
& LDAER 

& AM2901 , X , RAMF , 
& IMM H#2000 
& LDMAR 
& DREAD 

AM2901 , SO, RAMF 
IMM HiFFOO 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



SI , SRAML , PASS , DZ 

AER POINTS TO BOOT MEMORY 
CLEAR E,S1=H#0080 
PASS.DZ 

FIRST ROM LOCATION 
X = ADDRESS POINTER 
READ IT 
PASS.DZ 
SO = BYTE MASK 



, Y, RAMF , PASS.DZ 



AM2901 
SPNOP 

AM2901 Y, SO, RAMF 



SPNOP 
AM2901 SO, 
CARRYH 
IMM H#0800 
LUSRCOND 



, AND , AB 

ACCUMULATE CHECKSUM IN Y 
NOP, SUBS, DA 

COMPARE ROM SIZE 
COMPARE TO 8 



, NOP, ADD 



AM2901 
CONDUSR 
AM2901 
CARRYH 
LDMAR 
DREAD 
AM2901 
CARRYH 
LDMAR 

AM2901 Y , Y , RAMF 
CARRYL 
LODUSR 
DREAD 
AM2901 
CONDUSR 
AM2901 
SPWR LEDWR 
AM2901 , X , RAMF 
CARRYH 
LDMAR 
DREAD 
AM2901 
CARRYH 
LDMAR 
AM2901 
CARRYL 
DREAD 
AM2901 
MWAIT 



,AQ 
IF ZERO, 
RAMF, ADD, ZB 
INC X 



Z 

,S1 



, X , RAMF 



Y , Y , RAMF 



Y , Y , RAMF 



8K 



READ NEXT WORD 
RAMF , ADD, ZB 

INC ADDRESS 

ADD, DA 
ADD TO CHECKSUM 

READ NEXT WORD 
, NOP , ADD , AQ 

IF Z, CHECKSUM OK 
NOP, PASS, ZB 

WRITE TO LEDS 
ADD , ZB 



ADD , ZB 



ADD , DA 



ADD, DA 
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LINE ADDR STATEMENT 

8868 ; 

8869 PATCH AREA (AND VECTOR AREA FOR 4Kx8 BASESET PROMS) 
8870 

8871 SETAB: CONT & AM2901 MAPX , SO , RAMF , PASS , DZ 

8872 0076A / & SPNOP ; SO = MAPX 

8873 RET & AM2901 SO , MAPX , NOP , OR , DA 

8874 / & I MM H#0040 ; OR IN ABREF BIT 

8875 0076B / & LDAER ; AER = MAPX 

A600+ BASESET MICROCODE 6/15/83 ** [&LBRB1] 1:35 PM TUE., 13 SEPT, 1983 PAGE 227 

LINE ADDR STATEMENT 

8 877 ; ************************************* 

8878 ;* * 

8879 ;* 105XXX INSTRUCTIONS UIT TO 7FF * 

8880 ;* * 
88 81 ; ***************************************************************** 

8882 007FF ORG H#7FF 

8883 007FF ;*«*** 

8884 UIT105: JP UIT &AM2901 ,,NOP,ADD,AQ 

8885 007FF / & SPNOP ; 

8886 ; 

8887 END 



TOTAL ASSEMBLY ERRORS = 0 
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SYMBOL TABLE 



A 


A 


A A A A A 

00 000 


ADQ . 


A 


A A A A "7 

00407 


ALIGN 


A 


ft A A O O 

004B8 


AND . 


A 


A ft ft ft C 

00005 


ASGSP 


A 


ft ft A ft 

ooooc 


B 


A 

A 


A ft ft A 1 

00001 


C 


A 

A 


A ft A A O 

OOOOB 


CARR YH 


D 




CARR YUC 


D 




CBTDONE 


A 


a ft t rtr 

00 lCF 


CHECK 


A 


A ft A O O 

00438 


CIR 


A 


0001F 


CLC04 


A 


A A A O O 

00088 


CLD 


D 




CLF06 


A 


A A A A A 

0OOA9 


CLRFO 


A 


00053 


CLRMPI 


A 


A A A A A 

00004 


/si n n ^ 1~ r" 

CLRPSFF 


A 


A A A A 1 

00002 


CMGO 


D 




CM . 


A 


00041 


CONDMSR 


D 




COPYARGS 


A 


0 0455 


CPUSH 


D 




CREG 


A 


0000E 


CVECT 


D 




C . CQ 


A 


00400 


DADD 


A 


006F7 


DBLARG1A 


A 


00509 


DBLIE 


A 


A A ^ A A 

00208 


DDI01 


A 


00242 


DDI05 


A 


0025C 


DIARG 


A 


00269 


DIV25 


A 


00118 


DIVCONT 


A 


00107 


DLD 


A 


000DE 


DMP2 


A 


00229 


DNCOUNT 


A 


0060F 


DNEGATE1 


A 


0056F 


DN0RM1 


A 


005B3 


DN0RM15 


A 


005E1 


DN0RM7 


A 


005C1 


DPACK 


A 


005F0 


DROUND 


A 


005E5 


DST0RE1 


A 


005F9 


DZERO 


A 


0060E 


ENBLC 


D 




ENDCMW 


A 


001F5 


ENECI 


A 


00009 


EVLOOP 


A 


003A1 


EXIT2 


A 


08B0E 


FADD1 


A 


004AB 



A D 

AB 


A 


A A A A 1 


ADA . 


A 


A A 1 O A 
OU 1 OA 


A uo n A 1 

AM^9U1 


U 




AQ 


A 

A 


A A A A A 
OOOUO 


A5L 


A 

A 


A A rtp A 
UOOLO 


BR 


A 

A 


A A A 1 7 
0001/ 


CAB 


A 

A 


A A A 1 A 
0001U 


CARR YL 


V 




CARYUCON 


D 




CCALL 


D 




CHECKSUM 


A 

A 


A A f C A 

00 75A 


CJr 


L> 




CLCQ5 


A 

A 


A A A Q n 


CLF00 


A 

A 


ft ft A C O 

0005Z 


CLO 


A 

A 


A A A Ct 1 

O00O1 


CLRF5 


A 

A 


a ft ft n c 

00 095 


CLRO 


A 

A 


A A A C O 
OOODZ 


CLRTBT 


A 

A 


0000t< 


CMSGN 


D 




CNMGO 


D 




A (-> fclpi ||f>n 

C0NDUSR 


D 




COPYXYAB 


A 

A 


A A 1 O C 

OOlor 


CP . 


A 

A 


A A A A 1 
0000 / 


CRET 


D 




CWDCODE 


A 

A 


A A A 1 D 
OOOlD 


C . CQ05 


A 


ft A A A 1 
0040Z 


DADD1 


A 

A 


A A C C O 

OOor 8 


DBLARG2 


A 


00511 


DBLILSW 


A 


A A A A CT 

O00OF 


DDI02 


A 


00245 


DDI06 


A 


0025F 


DIV 


A 


ft ft ft 1 D 

O001B 


DIV30 


A 


A ft i 1 A 

00 1 1A 


DIVD 


A 


A A a rv 

OO0DC 


DL0AD 


A 


006F4 


DMP3 


A 


00234 


DNC0UNT1 


A 


0060E 


DNEGATE4 


A 


0067 8 


DN0RM12 


A 


005D5 


DN0RM2 


A 


005B9 


ft | **\ H||A 

DN0RM8 


A 


005C4 


DPACK1 


A 


005F 1 


DR0UND1 


A 


005ED 


DSXY 


A 


00190 


ECIRRD 


A 


00005 


ENBL0 


D 




ENDEV 


A 


003A5 


ENVE 


A 


0000F 


EVTO0D 


A 


003B1 


EXNOR 


A 


00007 


FADD2 


A 


004BA 



ADCCTOU 

Abr t 1 tn 


Pi 




AU . 


A 

A 


A A A AO 
VVvU O 


a Kin 
AND 


A 
H 


Art A ft A 


a cpcimt 


A 

H 


ft ft ft A *5 




A 

A 


ftft 1 9F 
U U 1 £. c 


DDT 1 
OK t L 


A 
A 


A A A 1 R 


p a i i 
OA L L 


rv 
U 




PAD D VKII IP 


V 




POP 


A 

A 


A A 1 A O 

U v 1 A J 


LUW • 


A 

A 


ft ft A ft *3 


p t 
0 1 


A 

A 


A A A A Q 


r> T D D 

IJrr 


r\ 
U 




p i Prt c.p 


A 

A 


a a a a o 
uuuy z 




A 

A 


A A A T 1 

uuu / 1 


p 1 ore 


A 

A 


A A A A 7 


p i ore 
U LKr O 


A 

A 


A A A A A 

UU UAA 


p 1 D DC T 
L-LK rt 1 


A 

A 


A A A AA 

uuuuy 


p. i DTr\T 


A 

A 


AAA AC 

uuu uo 


UMW 


A 

A 


ft ft 1 C A 
UU 1 tn 


pniki i i 


V 




LUN 1 


Pi 






A 

A 


A A A A A 

uuuus 


r» d t 


A 

A 


ft ft ft ft ft 

UUUUD 


UbUr r 


A 

A 


ftftftftC 


UaY 


A 

A 


ft ft ft 1 9 

UUU 1 c 




A 

A 


ft ft a ft t; 
UU 4U 3 


r\ d | a r\r\ 

DdLADLs 


A 

A 


a a c A 7 

UU j A / 


r\DI AD^O A 

DbLAKb^A 


A 

A 


A A C 1 o 


DBLIMSW 


A 

A 


A A A A O 


DDI03 


A 

A 


UU £. 4» 


rs rv T A O 

DD10 o 


A 

A 


A A O C O 
UU / D J 


rv T 1/ A C 

DIVOD 


A 

A 


A A 1 A A 
UU 1UA 




A 

A 


AA 1 1 D 
UU lib 


Dl VU Vr L 


A 

A 


A ft i i n 
UU 1 ID 


DLUAD1 


A 

A 


UUD r S> 


DMP9 


A 

A 


UU<£ o / 


DNC0UNT2 


A 

A 


A A C t\T\ 

UUbUU 


DNEGATE8 


A 

A 


UUb /L 


rikinn ki 1 r-t 

DN0RM13 


A 


A A C r\D 

005DB 


DN0RM3 


A 

A 


A A C DP\ 


D0FL 


A 

A 


A A C 1 C 

00b lb 


DQ 


A 


A A A A C 

00006 


DST 


A 


000E2 


DWRITE 


D 




EFAULT 


A 


0041D 


ENCN 


D 




ENDOD 


A 


003BE 


EVBYTE 


A 


001BE 


EXIT0 


A 


08B0F 


EX0R 


A 


00006 


FAULT 


A 


0041E 



r\ww 


A 


000 00 
vi \> v v v 


AD T 


A 
n 


0000? 




A 
r* 


OOOOd 




A 


0004? 

U v V *♦ £ 


Hon 


A 


noon? 


DT 1 £ oWH r 


A 


001 RF 
UvlDr 


r ADD VP VT 
L/Hn l\iLAI 


P> 




PA PR VP Fft 






PRT 


A 


00 1 P 1 




A 


0 00 TF 


v*» JL W - 


A 


0040 R 

\J \J H V O 


PI Pfirt 
lv LOU v 


A 
r\ 


OOOR 1 


PI PftR 


A 
rt 


000 Aft 


pi Fni 


A 
rt 


000 Q A 


PI RPiT^T 


A 
rt 


0000A 

VWV Vrt 


PI RMPF M 


A 
rt 


000 00 


PI PPCUT 


A 
rt 


000 OF 


PI 


A 
H 


000 40 

v V W *♦ V 


fMUMFft 

L-PTW nr. w 


A 
H 


00 1 F 1 




P) 
Is 




PHPVAR Y V 


A 
H 


00 1 RF 

vU 1 Ol 


PDIITH 


A 
H 


000 OR 


ppp API 


P) 






A 
rt 


oooon 


P7 


A 
rt 


ftft AOfi 


PiA 


A 
rt 


0 00 OR 


HRI APf^ 1 
U D Lnnvl X 


A 
H 


00R07 




A 
rt 


rt OR 1 A 
U<J Jin 


PiP7F P P 

DU<6r tn 


A 
rt 


rt rt 9 ft A 


r\r\ T rt A 


A 
rt 


rt rt 9 R A 
U U t O *+ 


Ur lAUr L 


A 
rt 


rt rt RAP 


p* TV/oa 


A 
rt 


rt rt 1 1 A 




Pi 
V 




n t wi ipnun 


Pi 




HMD 1 


A 
rt 


rt rt 9 9 A 


PtMCF Y T T 


A 
rt 


rt rt 9. SR 


PiKiCP A TP 


A 

A 


A AC C Q 

U UD D » 


UNUKrl 


A 
rt 


rt rt R R9 


PiKinPMI A 


A 
rt 


rt rtRPiPl 

u u ouu 


plMDPMR 
DNUKrlD 


A 
rt 


A A C n A 

U U OL»U 


DUr Lur L 


A 
rt 


rtrtfi 1 9 


np f ah 
UK L AU 


V 




DST0RE 


A 


005F8 


DZ 


A 


00007 


EIGHTK 


A 


00766 


ENDCBT 


A 


001F7 


ENE 


A 


OOOOD 


EVENT 


A 


003A2 


EXIT1 


A 


08B0D 


EXSKP 


A 


0043E 


FDIV1 


A 


004E3 
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FDIV2 


A 


004E8 


F DVPAT 


A 


00731 


FILLER 


D 




r- t v P\ LI C 

F IXDONE 


A 


00486 


r t v t c o r\ 

FX XZERO 


A 


0048 8 


FLTD3 


A 


0049B 


FOFL 


A 


002DE 


GENMPV 


A 


00106 


HLT 


A 


00045 


IFETCH 


D 




INCB 


A 


00 1B6 


INC PC 


A 


00442 


INDMS1 


A 


00395 


INEG 


A 


0072C 


INTCMW 


A 


001FE 


INTEV 


A 


003DC 


INTOD 


A 


003DA 


INTPON 


A 


0014C 


INTSLRQ 


A 


0016B 


IODC0001 


A 


0013D 


IODC0111 


A 


00145 


I00C1110 


A 


0014B 


IOHSHAK0 


A 


00137 


IOR 


A 


00009 


IOWR 


A 


0000C 


IR08 


A 


00728 


t n f« i/ n f 

IRSKBF 


A 


00003 


ISZ 


A 


0000B 


JLOOP 


A 


0073D 


JMP 


A 


00010 


JPTDI 


A 


0000E 


JRP 


D 




Tnn *i »|« 

JSBIVMA 


A 


00013 


JZ 


D 




LASTWD 


A 


003FF 


LDAER 


D 




■ rs k 4 Ann 

LDMAPD 


A 


A A A A A 

00000 


LDMP5 


A 


00330 


LD . 


A 


00017 


LI . 00C 


A 


00054 


LI . 04 


A 


00089 


LI . 06C 


A 


000AB 


LMVW 


A 


001E6 


L0DUSR0C 


D 




LPMRO 


A 


00322 


LSL 


A 


AAA »N A 

000D6 


LUSRCOND 


D 




MAPD1 


A 


0001D 


MAPX 


A 


0001C 


MEVSAVE 


A 


0038C 


MICREVID 


A 


00003 


MKLROFF 


A 


00005 


M0DT00D 


A 


00393 


M0V10 


A 


00365 



FDIV3 


A 


004ED 


FETCH 


A 


00000 


FILL00P 


A 


003E9 


FIXMAR 


A 


0004E 


FLT 


A 


0048A 


FLUN1 


A 


002B7 


FOFLUFL 


A 


002DC 


GETCQ 


A 


00359 


HLT1 


A 


00048 


IMAPLOC 


A 


00041 


INCBPC 


A 


003B0 


INCQ 


A 


000EC 


INDRES 


A 


00129 


INIT 


A 


0000C 


INTD 


A 


00277 


INTFTCH 


A 


0015F 


INTPARTY 


A 


00162 


INTP0N0K 


A 


00152 


INTTBG 


A 


00165 


IODC0010 


A 


0013F 


IODC1001 
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